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Dilwyn Jones 


t's been rather a hectic time for me lately. What with changing 
jobs, having to quickly master all sorts of non-QL computing 
and generally a lot happening at this time of year Time at the 
QL has been at a premium for me lately. Which just went to 
prove to me how much |! still enjoy QLing - every time | did get 
a chance to use QDOS or SMSQ/E it was like a first bite of 
chocolate after two weeks without any! 


Recently, | needed a little utility to help with the renaming of 
QXLWIN path names in QPC2 and decided to write one myself 
to make sure it was just what | wanted. The program was writ- 
ten in a day or two - see QXLWIN Manager in the news pages 
~ and given how busy | was at the time the experience of 
knocking up a complete little program like this in such a short 
time with Easyptr once again reminded me just why the QL re- 
mains such a part of my life. As | write this, lve been setting up 
a complex spreadsheet at work, a job which took up the best 
part of a week interspersed with other day-to-day work, to do 
one very specific task. Then | come home and remind myself 
that on the QL! can put together a program in no time at all - 
it took longer for me to do something in an already written pro- 
gram at work and it's still got bugs. 


Long live QDOS and SMSQ/E! 


During June, | had a month of using the full version of Qemu- 
Lator for Windows, courtesy of a temporary registration code 
granted by its author, Daniele Terdina. For whatever reason, the 
free emulators QLay & uQLx and the commercial one QPC2 get 
much more publicity than QemuLator Well, | finally realised what | 
was missing out on. It can run 
QDOS or SMSQ/E, very fast, 
and... well, see my review in this 
issue for more information. There 
is much more to this emulator 
than I'd previously thought and it 
deserves to get all the users it 
can get. 


Once again, a big thank you to 
our loyal readership for staying 
with us and an equally big thank 
you to all our regular contributors! 


[E1103Ipy 
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QL2004 
Several activities are planned for the QL2004 
show in Eindhoven, hosted by Sin-QL-Air the 
Dutch user group. We hope to revive the spirit of 
the old style Eindhoven international shows for 
which Sin-QL-Air was world famous. 

INTERNET: Most QL-ers know it is now possible 
to email from a QL, but do not know how near 
we are to a user friendly email program. Jon 
Dent will demonstrate the latest versions of his 
software. 

Apart from Jon's work we intend to have an 
internet connection available throughout the day. 
COLOURS: The GD2 colour drivers have now 
been available for about 5 years, but we urgently 
need more programs in the new colours. 
Wolfgang Uhlig will lead a colour workshop, and 
many people who have been active in writing 
programs and utilities using the new colours 
will be present at QL2004. This is a unique 
opportunity to learn how to use the colours in 
your Own programs. 

ALTERNATIVE POINTER: Everyone el 
pointer programming was restricted to QPTR, 


EasyPtr and QLiberator until George Gwilt ae 


came along. He will demonstrate the software 
he has written to allow pointer programming in 
GD2 colours using the Turbo compiler. 


QL PLATFORMS 

NATIVE HARDWARE: Nasta hopes to be present 
to describe the latest progress in developing 
expansion cards for native hardware. (If Nasta is 
unable to make it, then Roy Wood will take over) 
A good chance to discuss native hardware pro- 
blems. 

Q60: Unfortunately we are not expecting any 
official Q60 representation at QL2004, but Wolf- 
gang Lenerz will bring his Q60 along. George 
Gwilt, who develops his programs on a Q60, will 
use this machine to give his demonstration. An 
opportunity for Q60/40 users to meet together 
to discuss mutual problems. 

QPC: Wolfgang Lenerz says if we have some- 
thing for the other two platforms, there we 
should have something for QPC users. Nothing 
planned as yet, but, if anyone has ideas, we will 
be pleased to do It. 

QL FORUM: We hope to end the show with a QL 
Forum. We have a few names for the panel, but 
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THESAURUS 


are keeping nominations open to ensure we have 
a balanced view of QL opinion. Nominations for 
the panel and possible topics for discussion are 
welcomed. 


| have updated the QL2004 website. It now gives 
more details of the planned activities plus some 
extra hotel and tourist office information. 

The Hotel Parkzicht has been removed from the 
hotels list as we understand it has now closed. 
Please remember to ask about weekend prices 
at hotels, 
http://members.lycos.co.uk/geoffwicks/ql2004.htm 


JUST WORDS! MAKE-OVER 

Just Words! will be unveiling its GD2 house style 
at the QL2004 Eindhoven show, and hopes to 
release several upgraded programs from its 
range on the day. Priority is being given to the 
older, freeware programs to enable the maximum 
number of QL-users to benefit from the new 
colours. These programs will also be available for 
downloading from the Just Words! website. 


WORD 


GROUP 


HELP 
SET UP 


QPC2 v3.20 
Undergoing beta testing at the time of writing 
this, version 3.20 of QPC2 is a major rework of 
QPC2 by Marcel Kilgus. He switched program- 
ming tools and undertook a significant rewrite of 
much of the code, hopefully producing a much 
more robust emulator as a result (which does not 
mean in any way that QPC2 Is unstable!) The first 
beta release of this version included several 
improvements to aspects of QPC2 concerning 
Windows Direct-X which has allowed the follow- 
ng improvements: 
run several QPCs in parallel 
- change to fullscreen mode and back, even 
when several QPCs are running. 
- change Windows’ colour depth/resolution 
while QPC runs in window mode. 
~ put laptop in standby/suspend mode. 
The third Beta release included some improve- 
ments to the sound system, most significantly an 
improvement to the handling of short BEEPs to 
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- both Qx0 and QPC... 


work around limitations with DirectSound and 
some sound drivers. And as he happened to be 
working on it anyway, 

QPC now supports SSSS, the SMSQ/E sampled 
sound system! Marcel said that this was quite a 
tough job, but it seems to work fine now. Only 
basic Q40 compatibility so far ie 8-bit 20kHz 
stereo. 

All available tools for the Q40 seem to work fine 
(especially Simon Goodwin's SOUND device). 
Except Claus Graf's QSPLAYER, because it refu- 
ses to run on anything except a Q40. 

There is now a unified WIN and DOS configura- 
tion dialog and a new sound configuration dialog. 
Switching Windows jobs using ALT+TAB doesn't 
send a TAB to SMSQ/E any more. 

Fixed handling of SYS_CAPS capslock system 
variable, where one of the two bytes had been 
holding an incorrect value from early days of 
QPC, which may have upset one or two of the 
software Caps Lock indicators around. 


WIN/DOSZELP configas tion 
WIN/DOS connections ¢ 


| already have done necessary changes to 
create three language editions of Q-Word 
(English, German, French) and these will be all 
bundled for release with the new changes in 
code for QPC. 

The required version of QPC2 for the sound to 
work will be 3.20 


PASCAL 
Jean-Yves Rouffiac has secured permission 
from the former MD of Computer One {a 
company which released programming software 
such as assemblers and monitors in the early 
days of the QL) to make their Pascal compiler for 
the QL available on a non-commercial basis. 
Copyright on the software is retained. The soft- 
ware itself will be available from my software 
download site www.dokos-gr.net/~dj/ as well as 
available through the usual sources of freeware 
QL software. 
At present, all we have as a 
al Manual for this software is a 
| scanned set of the main 


> wint[CSQXL win | vost [es | | pages, which are saved as 

 witt2 [PGRLWIN @3| dose [os | | graphics, so quite large. These 
WING [CAGXLDJENGXL WIN S| boss [EvaxLibies Bl manual files are too large to 

wing [EXOXLIDOCGXL WIN” op] poss [EXQXNDOCY ops | place on the website as they 

wins [EXOXEMTG@T WIN ~~ | poss fExocemuy |_| are, so will initially only be 
wing [ESOXLUTNGXLWIN | pose [esau ‘| | available from my PD library 
win? [EXGXLPONOXLWIN- SSS] Ds? [EGP ——SSCS*~*~*~*~*~S*« | | SVC NNT thee full Manual Cann 

Bl be scanned and OCRed as 


wine ye S| pose F \OXLASREN 
ees | OJ 


~| otherwise boot from |WwiN1 >| 


; Above: 
The new combined WIN/DOS 
configuration dialog 


"To the left: 
: . The new SSSS_ configuration 
=. dialog 


cae f : | = 
Q-WORD 


Phoebus Dokos writes: 

"Thanks to a much anticipated new QPC version 
by Marcel Kilgus (QLSSS is supported), we can 
now use the same Music Server software on 
that means that QPC will 
not suffer from sound playback latency. | am 
working as fast as | can to fix the code for QPC.. 
That also creates changes on the way Q-Word 
is installed which will be able now to be com- 
pletely independent! 
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text rather than graphics 


KNOWARE Website 

Per Witte reports on software added to his 
website: 

QUIT works with Minerva Multibasics 

Added Button - a MC toolkit to use the Button 
Frame 

Added DelDir A mini directory tree traversal 
tutorial. 

Added HDRen. A routine to rename QXLWIN 
(QLWA) hard disks. 

Added Findname. A MC function to check for 
S*Basic function/procedure names. 


All this and more can be found at 
http://knoware.mysite.freeserve.com/index.html. 


SQLUG Newsletter 

John Sadler reminds us that subscriptions are 
still available for the SQLUG Magazine (Scottish 
QL User Group). 


The magazine consists of 4 A5 pages a month 
containing news of and articles by George Gwilt, 
or by John himself 

At the time of writing (Ist July 2004) , subscrip- 
tion was £4.50 for the remaining 10 months for 
addresses in the UK 

Please forward subscriptions to 

John Sadler, 8, Broom Place, Kirkcaldy, Fife, 
Scotland KY2 6UE, United Kingdom 


GWASL 1.19 

Norman Dunbar reports that he has received a 
version 119 of the Gwasl (Gwass Assembler Lite) 
assembler for 68008 processor systems. The full 
Gwass assembler only runs on systems with 
68020 or later processors. This version of Gwas! 
fixes a problem Norman Dunbar ran into when 
preparing his assembler articles for this maga- 
zine - the new version allows more space for 
labels to allow for users like Norman! 


CPTR Update 

New versions of Cptr are on the SQLUG website. 
The main changes are in the examples. There is 
a new version of UCAlib. Note that if you use the 
cptr2_o you may find you get RELOC_START 
link errors when you compile a program. Just use 
the old version. 

www.jms1.supanet.com 


Clocks and Calendars 

This is a small suite of programs from David 
Denham and Dilwyn Jones, which were written 
following the Clocking In series in QL Today 


AnaClock is an analogue clock display which can 
be resized from about 1 text character in size 
right up to the full screen size. 

Dates Calculator is a general purpose date 
handling utility, which does things like working 
out the number of days between two dates. 
Enter your birth date and today’s date and it will 
tell you how old you are, for example. It will also 
work out Easter dates, and which day of the 
week that a given date falls on (e.g. your birthday 
next year will be on a Tuesday!) 

MiniCal is a small display calendar, which shows 
the current month and lets you step backward or 
forward a month at a time. 

Button Clock is a little digital clock which runs in 
the QPAC2 button frame, using Jochen Merz’s 
Button Frame extensions. 


These programs will all be available as freeware 
from the usual sources. 


SUQCESS 

Wolfgang Uhlig writes: 

| want to announce the colour version of 
SuQcess, the database frontend for the QL. After 
having overcome (nearly) all the EasyPtr- 
difficulties with the help of Marcel Kilgus and Per 
Witte, Bob Spelten and | gave the program a 
totally new outfit. 

With all the improvements Sugcess has had 
during the last two years, it is now a program 
really worth giving a try. 

You can download a trial version on my website: 
www.ublich.nl/ql 

Every feature can be tested, the only thing that 
does not function is saving changes to the very 
database. 


FONT VIEWER 

This is a small pointer driven utility for viewing 
QDOS or SMSQ text font files. The program 
simply displays all characters in a given font file. It 
can be used with File Info 2 to view fonts directly 
from QPAC2’s Files menu via the Exec command, 
or from Q-Trans’s Exec command, if File Info 2 is 
set up for the correct action with the font file’s 
filename extension. 


parstuvuxyzié | 
Beeavii ioosuuap 
Harpicge snes te+t 


J-M-S is Moving 

Please note that the address will change on the 
ist of October. “Im stillen Winkel 12” will become 
‘Kaiser-Wilhelm-Str 302” ... the rest, including the 
postcode, phone numbers etc., will stay the same. 
This issue is produced under high pressure (we're 
renovating as well) and it will go on for the next 
six weeks or So, at least. 

So, in case you find it difficult to reach J-M-S on 
the phone, then you know why. 

Please use E-Mail ‘til October then | can reply 
whenever time permits: 

SMSQ@J-M-S.com 

If you have a look at the J-M-S homepage you 
may find that, after quite some time, something 
has actually happened: 

SMSQ.J-M-S.com 
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LAUNCHPAD 


A New Graphical Interface For The QL 


Hee BEES An all-new graphical user interface for QDOS 
Eile Lounch Utility My@l Menu Heip == Things = Transfer é 
ep SS & or SMSQ/E from Dilwyn Jones. Fed up of 
° Convert Emynery InaaProc PRLETTE Sout typing in EXEC ‘filename’? With this pointer 
EE ga ih * & Lf driven application, simply set up desktop 
a 
A 


A.C.P. BASIC Rep 


Abacus CALENDAR Copier Easysprit Instalt 
Fh co icons to launch programs, or create menus or 
— ge eo rt ] ae “lists” of programs to launch, all in a simple 
Bert cicttiy: Om ay: eet to use no-nonsense graphical “point and 
> @ click” system — use with mouse or keyboard. 
Conv-PCX EasyBase HTML Mech MiniVieu L) SpellCrib Runs on anything from expanded memory QL 
to QPC2 or Q60, as long as you have pointer 
environment and Toolkit 2 


Set up icons for launching your programs with 

a single mouse click from one of four desktop 

surfaces 

Set up your own program launching menu 

Up to 16 users, all with optional passwords 

MyQL menu to customise and remember your 

QL settings for each user 

Runs as a simple job, does not prevent you Ete EGER UUtity Mgt tem Help prehiverss 


RCP r ale Configurations 
. . “ 3 a = Databases 
using BASIC or anything else a.c.P. — convert Lal File Genrer 
Several accessory programs (calculator, AY O§ 
calendar, screen saver, file handler, games and Copter Basyear tt 


so on) =| Be Bh | CE eteuines 


: Cale DEUHon Fite Find | Gerti tiene otto 
Revolutionise your QL system — you'll eS TESTS 
wonder how you managed without it! chive Chess Dictlonry CViever J 


BASIC —Conv-PCX EasyBase HTML Mach beere 


THE QL CD-ROMs ARE STILL AVAILABLE... 


QL Emulators CD £5.00 - QL Documentation CD £5.00 - QL PD-CDR £5.00 
QL PD Library CD £10.00 - QL Religion CD £10.00 - QL Literature CD £10.00 
Line Design Clipart CD £10.00 - Famous Faces Clipart CD for Line Design £10.00 
PD Software Library catalogue available on my website http://homepages.tesco.net/dilwyn.jones/index.html 


Want To Know More? 


Visit the Launchpad web page at: 
http://homepages.tesco.net/dilwyn.jones/launchpad/launchpad.html 
from where you can download a free trial version, limited only by the number of programs 
you can set up to run on it— more than enough to try out Launchpad. 


Launchpad is available (price £20.00) from either the author: 
Dilwyn Jones, 41 Bro Emrys, Tal-y-bont, Bangor, Gwynedd, LL57 3YT, U.K. 
email: dilwyn.jones@tesco.net Payment in Pounds Sterling only 
or from: 
Q-CELT COMPUTING, 
The Falconry, Glenmacnass, Glendalough, Co. Wicklow, Ireland 


email: darrenb@esatlink.com (Payment in Pounds Sterling or Euros) 
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Gee Graphics! (on the QL ?) - part 39 


H. L. Schaaf 

100 REMark GaussLegendreQuad_bas 

110 REMark for GG#39 

120 REMark HL Schaaf June 24, 2004 

130 : 

140 WIV : PAPER 0 : INK 7 : CSIZE 1,0 :CLS 

150 menu : max_min : graph_it 

160 places = 0 : old_places = 0 : old_area = 0 

170 n= 2 

180 start = DATE 

190 REPeat gr 

200 PRINT #0,n, 

210 GRULE(n) 

220 area = get_area 

230 dif = ABS(area — old_area) 

240 old_area = area 

250 IF dif: places = INT(ABS(LOG10(ABS(area/dif) ))) 
260 IF NOT(dif) : places = 8 

270 IF places»old_places THEN 

280 PRINT n;' points'!!!area,places; 

290 PRINT ' places'!!!!DATE-start;' elapsed seconds' 
300 old_places = places 

310 END IF 

320 n=nt+n 

330 IF NOT(dif) : EXIT gr 

340 IF (ABS((area/dif)) » 1E7) OR(places >= 7) : EXIT gr 
350 END REPeat gr 

360 : 

370 PRINT#O\\,, ‘Touch [space bar] for another, Q to quit’ 
380 IF INKEY$(-1)=='q' : STOP 

390 RUN 

400 : 

410 DEFine PROCedure GRULE(n) 

420 REMark Ref: P.J. Davis & P. Rabinowitz 

430 REMark "Methods of numerical integration" 
440 REMark Academic Press, New York, 1975 

450 LOCal I, M, E1, T, U, V, H 

460 REMark and XO, PKM1, PK, T1, PKP1, DEN, D1 

470 REMark and DPN, D2PN, D3PN, D4PN, DP, FX 

480 M=(n+1) /2 

490 DIM AB(M) : DIM W(M) 

500 E1=n*(n+1) 

510 FOR I=1 TOM 

520 T=(4*I-1) ¥PI/(4%n+2) 

530 X0=(1-(1-(1/n) ) /(8%n¥n) )*COS(T) 

540 PKM1=1 

550 PK=X0 

560 FOR K=2 TO n 

570 T1=X0O*PK 

580 PKP1=T1—PKM1—(T1—PKM1) /K+T1 

590 PKM1=PK 

600 PK=PKP1 

610 END FOR K 

620 DEN=1-—X0*X0 

630 Di=n* (PKM1—X0*PK) 

640 DPN=D1/DEN 

650 D2PN=(2*XOXDPN-E1*PK) /DEN 

660 D3PN=(4*X0*D2PN+(2-E1) *DPN) /DEN 

670 D4PN=(6*X0*D3PN+(6-E1) *D2PN) /DEN 

680 U=PK/DPN 

690 V=D2PN/DPN 

700 H=-U (14+. 5*U% (V+U% (V¥V-U*D3PN/(3*DPN) ))) 
710 P=PK+H* (DPN+. 5*H* (D2PN+H/3% (D3PN+.25*HX¥DAPN) ) ) 
720 DP=DPN+H* (D2PN+. 5*H% (D3PN+H¥D4PN/3) ) 

730 H=H—P/DP 

740 AB(I)=X0+H 

750 FX=D1-H¥*E1% (PK+. 5*H* (DPN+H/3% (D2PN+. 25*H* 


(D3PN+.2*H¥DAPN) ) )) 
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GRULE on the QL 


Gaussian quadrature with Le- 
gendre polynomial coefficients. 


What's quadrature? In some 
ways it is like trying to square 
the circle. In integral calculus 
we were shown that by divi 
ding the area under a curve 
into little rectangular strips and 
then summing their individual 
areas we could approximate 
the area under the curve. As 
we made finer and finer divi- 
sions with more and more 
strios we approached a limit, 
known as the integral. | think 
quadrature is an approximation, 
whereas the integral is pre- 
sumed to be exact. 


We can approximate the inte- 
gral by dividing the curve into 
strios of equal width, do the 
summation, and check the ans- 
wer. Then we can keep doub- 
ling the number of strips, doing 
the sums, and comparing the 
answers. Eventually the ans- 
wers should settle down closer 
and closer to the “true” value. 
Several clever refinements that 
use equally spaced sample 
points have been developed 
including Simpson's rule and 
Romberg methods. 


Gauss took samples — at 
UNEQUAL spacings based on 
Legendre's differential polyno- 
mial equations. The samples 
were taken at the roots (zero 
crossing) of the polynomial and 
the strip widths were from the 
adjacent peak to trough on the 
polynomial curve. This gave 
much better answers with 
fewer samples. The only has- 
sle was trying to solve the Le- 
gendre polynomials and finding 
the roots, peaks, and troughs. 
A Fortran program named 
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GRULE written in 1954 at the 
‘dawn of the computer age’ 
made it possible to solve Le- 
gendre functions for high order 
polynomials. 


A nice long story about ‘the 
dawn’ and GRULE can be 
found at: 


www.siam.org/siamnews/general/ 
dawn/him 


| simply converted GRULE to 
QL's S*Basic. The real roots of 
the Legendre polynomial all lie 
between -1 and +1, and to use 
the Legendre coefficients they 
have to be mapped to the 
curve in question by shifting 
and scaling. The y-values are 
calculated at the correspon- 
ding abcissa and multiplied by 
the distance (weight) between 
peak and trough for each 
sample point to get the area of 
each quadrilateral strip. The 
quads are summed up and that 
total rescaled to find the appro- 
ximate area. Again as more and 
more samples are taken the 
answer gets closer and closer 
to the ‘true’ area under the 
curve. 


A nice explanation of all this 
can be found on the web at: 


http://mathews.ecs.fullerton.edu/ 
n2003/GaussianQuadMod.html 


A lovely graphic example is 
given at: 


math.fullerton.edu/mathews/ 
a2001/Animations/Quadrature/ 
GaussLegendre/ 
GaussLegendreaa.html 


The listing 
GaussLegendreQuad_bas 

will give you a feel for how it 
works with known answers for 
a few textbook examples. 
Choice 7 allows DIY Lame 
curves, if the exponents are 
equal you can crosscheck the 
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760 W(I)=2% (1-AB(I)*AB(1) ) /( FX¥FX) 


770 END FOR I 

780 IF ((2*M)>n): AB(M)=0 
790 END DEFine GRULE 

800 : 


810 DEFine FuNetion f(X) 
820 SELect ON example 


830 = 1: RETurn SIN(X) : REMark Shoup 

840 = 2: RETurn (X¥X) * COS(X) : REMark Kuo (3/2) 

850 = 3: RETurn (1/EXP((X)))*(SIN(8*(ABS(X) “(2/3))))+1 : 
REMark Mathews 

860 = 4: RETurn SQRT(ABS(1—(X*X))) : REMark semicircle 

870 = 5: RETurn (2/SQRT(PI) ) /EXP( (X*X)) : REMark Scheid 15.31 

880 = 6: RETurn SQRT(ABS(1-X*X)):REMark quadrant 

890 = 7: RETurn Lameval(X) : REMark Lame curve 


900 END SELect 

910 END DEFine :REMark f(X) 

920 :: 

930 DEFine FuNetion a_b(L_Ab) 

940 REMark maps Legendre Abcissa (from -1 to +1) to curve (from 
a tob ) 

950 RETurn (a +((b-a)/2)*(L_Ab+1) ) 

960 END DEFine :REMark a_b(L_Ab) 

970 : 

980 DEFine FuNction get_area 

990 LOCal I,E 

1000 area = 0 

1010 FOR I = 1T0n/2 

1020 tp = a_b(AB(I)) 

1030 tm = a_b(-AB(I)) 

1040 quadshigh = f(tp) + f(tm) 

1050 quadarea = quadshigh * W(I) 

1060 area = area + quadarea 

1070 END FOR I 

1080 areahigh = f(a_b(0)) 

1090 IF ((n/2)-INT(n/2)) AND (m1) THEN 

1100 quadarea = areahigh * W(I+1) 

1110 area = area + quadarea 

1120 END IF 

1130 IF n = 1: quadarea = areahigh * 2: area = area + quadarea 

1140 area = area * (b-a)/2 

1150 RETurn area 

1160 END DEFine :REMark get_area 

1170 : 

1180 DEFine PROCedure menu 

1190 REPeat choice 

1200 CLS : CLS #0 

1210 PRINT ‘choose from following examples:' 

1220 PRINT ' 1 — Shoup! 

1230 PRINT ' 2 - Kuo! 


1240 PRINT ' 3 — Mathews! 
1250 PRINT ' 4 — semicircle! 
1260 PRINT ' 5 — Scheid! 
1270 PRINT ' 6 — quadrant! 
1280 PRINT ' 7 — Lame curve! 


1290 examp$ = INKEY$(-1) 

1300 IF examp$ INSTR('1234567') :EXIT choice 
1310 END REPeat choice 

1320 example = examp$ 

1330 SELect ON eee 


1340 =1: a=0: b= PI: ans = 2: name$ = 'Shoup! 

1350 =2: a=0: b=3: ans = -4.952115 : name$ = 'Kuo! 
1360 =3: a=0: b=2: ans = 2.01628 : name} = 'Mathews' 
1370 =4: a =-1:b=41: ans = PI/2 : name$ = 'semicircle' 
1380 =5: a=0: b=2+4: ans = 1: name$ = 'Scheid' 

1390 =6: a=0:b=+41: ans = PI/4 : name$ = 'quadrant! 
1400 =7: get_input :a=0 : b = Lame_a : name$ = Lamename$ 


1410 END SELect 

1420 END DEFine menu 

1430 : 

1440 DEFine PROCedure get_input 

1450 PRINT 'examples only for ist quadrant ! ' 
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1460 
1470 
1480 


CSIZE#0,0,0 : INK#0,7 


1500 INPUT#O; prn$ & "half width ? ";Lame_a 

1510 INPUT#0; prn$ & "half height ? ";Lame_b 

1520 INPUT#O; prn$ & "width exponent ? ";Lame_el 

1530 INPUT#0; prn$ & "height exponent ? ";Lame_e2 

1540 Lamename$="Lame curve (x/"&Lame_a&") “"&Lame_el 

1550 Lamename$=Lamename$ & '+ (y/'&Lame_b&!) ~'&Lame_e2&! = 1! 
1560 CLS #0 

1570 END DEFine get_input 

1580 : 


1590 DEFine PROCedure max_min 
1600 LOCal I, y 


1610 miny = 1E6 : maxy = —1E6 

1620 FOR I = a TO b STEP (b-a) /256 
1630 y = f(I) 

1640 IF ycminy : miny = y 

1650 IF y>maxy : maxy = y 

1660 END FOR I 

1670 END DEFine max_min 

1680 : 


1690 DEFine PROCedure graph_it 

1700 SCALE 2*(maxy-miny) ,a—.1,miny—.1:CLS 
1710 PRINT name$,, 

1720 IF example«>7 : PRINT ans 

1730 PRINT 

1740 LINE 0,0 TO b,0 

1750 LINE 0,0 TO 0,maxy 

1760 POINT a,f(a) 

1770 FOR I = a TO b STEP (b-a)/128 

1780 LINE TO I,f(I) 

1790 END FOR I 

1800 END DEFine 

1810 : 

1820 DEFine FuNction Lameval(X) 

1830 
1840 END DEFine 
1850 : 


1860 REMark end of listing GaussLegendreQuad_bas 


PRINT 'please enter values for Lame curve! 


prn$="Please ENTER a positive real number for " : 
1490 REMark values for width, height, and exponents 1 and 2 


RETurn Lame_b*¥((1- ((X/Lame_a) “Lame_e1)) ~(1/Lame_e2) ) 


answers by using Allard from 
GG#38. You can change the 
starting n on line 170 and the 
rate at which n grows on line 
320; iry n.+41,0r nn + 1, etc, 
Most of the total elapsed time 
is used in filling in the AB and 
W GRULE values. Getting the 
area only takes a Second or So. 
After seeing how this worked 
on several curves, | call the 
GRULE only once in a program 
with n = 256 and feel that the 
answers are probably good to 
at least 6 or 7 significant digits. 
Enjoy. 


CLS #0 


Next time, maybe we will have 
a go at the length of compound 
Lame curves? 


As requested in the past by 
several readers, we have prin- 
ted the listing on the outer 
areas of the page to make it 
easier for our readers who 
like to type the listing in from 
the opened magazine - Editor 


A Bit at a Time 


Geoff Wicks 


A couple of Eindhoven shows ago, Wolfgang 
Uhlig approached me like a fierce schoolmaster 
carrying his cane. "You boy!", he snapped, "You 
have not done your homework!’ As a punishment 
he made me stand in the corner for the rest of 
the show with a dunce’s cap on my head. 

| made that first paragraph up. Readers who 
know Wolfgang will know that he ts far too polite 
and kind to behave like that, but he did give me a 
friendly rebuke for not reacting to his work on 
using the new QL colours. | had to plead guilty. A 
few technical problems and too much involve- 
ment in QL politics had prevented me from look- 
ing at the GD2 colours. | had tried a few simple 
experiments, but had been unable to get over 
the first hurdle, but more of that later. 

One advantage of being a late-starter is that you 
can learn from the work of other people. In parti- 
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cular, Wolfgang has written several programs to 
display GD2 colours and has described how you 
to use these in EasyPtr And in Scotland George 
Gwilt has produced software to make it easier 
for EasyPtr users to transfer their programs to 
TPTR. 


George's program EPTR2WDA interests me 
because it converts menus produced by Easy- 
Menu into a form suitable for use in TPTR. 


In the very early days of his development of 
TPTR | did some beta testing for George in 
which | failed in attempts to reproduce my 
EasyPtr screens in TPTR format, but George has 
now successfully automated the process. | have 
tried his program on several Just Words! menus 
and it has worked perfectly in each case. 


TPTR holds its screen information in a series of 
data statements and George has written another 
program EDIT_WDA which converts these data 
Statements into a list of Information Windows, 
Loose Items and so on. This list includes their 
size, colours and other information, and is far 
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more detailed than comparable lists produced by 
EasyMenu. EasyPtr users may find this facility 
worthwhile even if they have no intention of using 
TPTR. 

find George's work fascinating because it Is 
merging two, possibly rival, technologies for 
writing pointer programs. EasyPtr has helped 
many of us overcome the fear of writing for the 
pointer environment, but it does has some weak- 
nesses. For example it is not possible to resize 
screens on the fly in EasyPtr programs. Is 
George challenging us to widen our pointer 
programming horizons? 

This is a lengthy introduction to the purpose of 
this article. Having been suitably chastised by 
Wolfgang Uhlig, | have been busy designing Just 
Words! GD2 house style. There are many pro- 
grams, including some Just Words! classics, that 
have been around for years that can now be put 
in a nice new jacket. Here is a little Just Words! 
experience to help you along. 


HELP! I’m drowning! 

Starting to program in the new colours is a daun- 
ting undertaking. There is a mass of technical in- 
formation few of us understand. Should you use 
COLOUR_QL, COLOUR_NATIVE, COLOUR_PAL 
or COLOUR_24? If you have difficulty in choosing 
between a peach-coloured or a plum-coloured 


Shirt think of the problems of choosing between 
65535 QL colours. To make matters worse in 
COLOUR_24 mode you are not allowed to use 
normal numbers but have to enter everything in 
Hexadecimal. Then there is a whole new sprite 
technology. They now come in 8 bits or 16 bits 
and can be multiple, dynamic, extended and 
chained. 

When you are drowning in all this information, 
there are few lifeguards around to help you, and 
even they talk in a language you do not under- 
stand. 

Keep calm! There are a few life jackets and other 
aids out there. The secret of learning to swim in 
this environment is to take it slowly and learn a 
bit at a time. Forget about sprites for the moment 
and just concentrate on the colours. Even the 
colours can be broken down into small manage- 
able chunks. Once you have taken the first 
plunge you will find that swimming in the GD2 
sea is quite fun. You quickly learn new tech- 
niques and enjoy the challenge of exploring new 
territory. 


Your Lifejackets 

You need a number of tools to help you survive 
in the GD2 sea. 

Firstly, make sure you have your manuals by you. 
In my case | needed the EasyPtr manual to re- 


The big one... 


JUST WORDS! 
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mind myself of the precise syntax of some of the 
keywords and to learn one or two new ones. 
secondly, make use of a good text editor Even, if 
like me, you do not normally use an editor to 
write SuperBasic programs, you will still find an 
editor worthwhile. It has search and replace func- 
tions that will save you a lot of time when you 
are modifying SuperBasic. 

Thirdly, have Wolfgang Uhlig’s article ‘Colours 
with EasyMenu” (QL Today volume 8, issue 5 
page 8) by your side. Even if you do not use 
EasyPtr, this article contains some valuable infor- 
mation on the GD2 colours. 

Finally, have some program available to help you 
choose colours. If you want to be ambitious and 
try the full monty straight away look at Wolf- 
gang's programs. They can be downloaded from 
www.uhlich.nl/ql However, | think it is better to 
work initially in the 256 colours of COLOUR_PAL 
mode. Type in and compile the short program 
under the section Palette maps on page 5 of the 
SMSQ/E manual display section. To compile the 
program in QLiberator you will have to give the 
repeat routine in lines 150 to 190 a name and 
change the hexadecimal numbers in lines 170 and 
180 to decimal. ($D0=208 and $D8=216). 


Decision Time 

Before you start work you have to take a few 
decisions. In my case it was choosing between 
the George Gwilt way and the Wolfgang Uhlig 
way of using GD2 colours. | gave serious consi- 
deration to trying TPTR, but it would have 
involved a steep learning curve and experiments 
with colours that would have delayed the intro- 
duction of a Just Words! GD2 house style. 
Another decision you have to make is the co- 
lours you want to use. Here again there are two 
possibilities. Some people want their programs to 
be totally integrated into the pointer environment. 
In other words they use the colours and style the 
user has programmed for use in his own version 
of the Window Manager. Other people prefer to 
use their own colours and want their programs 
to look the same on all QL platforms. 

There are no prizes for guessing what the Just 
Words! choice was. | have put a lot of effort into 
developing a distinct house style, and my priority 
was the same colours on all platforms. For this 
reason | opted to use COLOUR_PAL, although 
there is a problem with this | shall explain later. 
Once you have developed your distinctive style 
using these 256 colours, you can easily “up- 
grade” to the higher colour definitions with the 
help of Wolfgang Uhlig’s programs. 
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A Technical Bit 


This next bit is for EasyPtr users. It is a practical 
application of the techniques Wolfgang described 
in his article. lf you never use EasyPtr you may 
still wish to read this section, but if not it will not 
be a major disaster if you skip to the next sec- 
tion. 

First, load the menu you wish to modify into Easy- 
Menu. If the OUTLINE has a border remove this, 
because you have to completely overwrite the 
outline. Next click on Info window and then Set 
up and define a new window of exactly the same 
size as the Outline. For working purposes this will 
become a new ‘pseudo-outline’. The "pseudo- 
Outline’ must be the first window in the informa- 
tion window list. You do this by right clicking on 
the window number and changing this to 1. 

We need a pseudo-outline because you cannot 
modify the colours in the true outline. This was 
the first hurdle | was unable to overcome when | 
first experimented with the GD2 colours. Wolf- 
gang Uhlig was more clever and realised you 
could just overwrite it with an Information Win- 
dow. 

Now save the new menu, load it into appman_ob 
and modify the _cde file to use the redefined 
menu. 


Before we go any further have a look at Fig. 1, 
and in particular the top left hand corner. This 
contains 3 information windows, each of which 
can be modified using the command 
MWINDOW[chan% ]num! 


In the old version of Spelling-Crib: 

Information Window num=1 was the background 
window with a border. 

Peer Window num=2 was the Just Words! 
0g0 

Information Window num=3 was the name "Just 
Words!" 


However our pseudo-outline is now information 
window number 1, and the three information win- 
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dows in the left hand corner have now become 
numbers 2, 3 and 4 respectively. You should now 
load your basic program into the text editor 
search for all occurrences of MWINDOW and add 
1 to each of the window numbers. 


We are now ready to start recolouring, and we 
begin with the pseudo-outline. This will be grey 
paper with a purple border After drawing the 
menu, in say channel 5, using the MDRAW com- 
mand , we insert a single line of basic: 

MWINDOW #5,1! : PAPER #5, light_grey : BORDER 
#5,2,purple : CLS #5 


Next we want to recolour the top left hand 
corner window. This is a small window in a diffe- 
rent shade of grey, but with the same purple bor- 
der. Here the basic Is: 

MWINDOW #5,2! : PAPER #5,grey : 
#5,1,purple : CLS #5 


BORDER 


Information window number 3 is the Just Words! 
logo, which is a sprite. This has been overwritten 
by the previous command, and we rewrite it with 
the command: 

MIWDRAW #5,3! 


Information window number 4 has also been 
overwritten. This is a window with the text "JUST 
WORDS" as its information object. In this case it 
is best to remove this information object in Easy- 
Menu and add the words in the basic program. 
Thus a line: 

MWINDOW #5,4! : PAPER #5,dark_grey : INK 
#5,light_grey : CLS #5 : PRINT #5, " JUST 
WORDS! " 


In this way you can recolour and redraw each of 
your information windows. After you have done 
this, you may find you have to return to Easy- 
Menu to make a few pixel adjustments to the 
size or position of some windows. 

The redrawing will also overwrite your loose 
items, and you can restore these by the simple 
command MLIDRAW #5. 

It is possible to recolour practically everything in 
a screen designed by EasyPtr There is one big 
exception and that is the individual Application 
Window Menu Items. Two Just Words! programs 
use these and | had to compromise by using the 
QL colours that fitted best with the GD colours (in 
this case a cyan-white stipple). 

There has been a lot of discussion about an 
upgrade to EasyPtr to handle the new colours 
more easily. There is in limited circulation an up- 
graded version which does this, including applica- 
tion window menu items. Unfortunately this 
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version cannot be given a wider distribution 
because of copyright technical problems. It is 
hoped that these problems can eventually be 
resolved. 


Some Colour Hints 

You will probably have noticed that the PAPER 
and INK commands | used in the last section had 
colours and not numbers. It is a good policy to 
define your colours early in the program. Thus 
various shades of grey from light to dark could 
be defined as: 
light_grey=13 : grey=12 : dark_grey=10 

lf you then want to make subtle changes to the 
shades of grey all you have to do is change the 
colour number. | tried about 10 different shades 
for the border before | had the one | wanted. 
Another advantage of this is that if | had changed 
my mind and wanted a green border rather than 
a purple one, it would have been easier to have 
loaded the SuperBasic into a text editor and 
search for all occurrences of ‘purple’, than to 
search for a number. 

In practice | made several radical changes to the 
colours used in the Just Words! GD2 house style 
during its development. To use the 256 palette 
colours you have to have the command 
COLOUR_PAL at the start of your program. | re- 
moved this command, because instead | decided 
to use what are known as the "Window Manager’ 
or “System Colours’. To do this you have to use 
some new keywords. Instead of INK, PAPER and 
BORDER, you use the keywords WIML_INK, 
WM_PAPER and WM_BORDER. 

There are 65535 system colours and the first 256 
of these are the standard QL colours. The 
second 256 are the palette colours, so | had to 
add 256 to my previous colour values: 
light_grey=269 : grey=268 : dark_grey=266 


The use of system colours gives a lot of advan- 
tages. If necessary, and sometimes it is necessa- 
ry with EasyPtr it is easy to mix QL and palette 
colours. It is also possible to experiment with 3D 
effects and for advanced use there are 32,768 
RGB colours. 

You soon discover how to make creative use of 
the GD2 colours. | like working with greys be- 
cause they blend well with most other colours. 
One criticism people sometimes make of Just 
Words! programs is that it can be difficult to dis- 
tinguish between loose items and _ information 
windows. By colouring the latter a light grey, | 
Can give more emphasis to the former and make 
them easier to find. 
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Now You are on Your Own 

There is a big snag with using the 256 palette 
colours. The colours in the palette can be rede- 
fined by the user and you can be certain some 
clever clogs will do just that and spoil your care- 
fully designed colour scheme. 

Tony Tebby saw this problem arising and sug- 
gested that if you modify the colour palette you 
should modify the high values so that program- 
mers could use the low values and know they 
will appear the same on all platforms. 

However, there is a better way round this pro- 
blem. Basically the 256 colours are a subset of 
24 bit colours or in the case of the system co- 
lours a subset of the 32,768 15 bit RGB colours. If 
this is now getting too technical, don't worry. 
What it means Is that the 256 palette colours 
were selected from 32,768 RGB colours original 
ly If you want to stop clever clogs spoiling your 
colour scheme you use the original colour 
instead of the palette colour. 

Thus my line of basic in which | define the 
colours now becomes: 

light_grey=61307 : grey=56022 : dark_grey=46509 


Unfortunately, this is where it becomes really 
nasty, because at the moment there is no easy 
way to determine which palette colour corres- 
ponds with which RGB colour | am preparing a 
table to do this and | should be finished by the 
time you are reading this, but | suspect it will be 
too long to print in QL Today. If you need the 
information, then contact me directly. 


If you want to look at the RGB system colours, 
then you should run Wolfgang Uhlig's program 
QCP_obj. Alternatively you can type in the 
simple basic program | used when experimenting 
with the colours. This is not as sophisticated as 
Wolfgang's program, but it does help you 
understand how the colours are made up from 
the Red, Green and Blue components. 


Why am | an old Fusspot? 

Why am | being so fussy about using the correct 
colours, and and say you should only use the 
RGB colour that corresponds to the palette 
colour? 

The reason is that the QL has three main plat- 
forms, native hardware, QPC and the Q40/60. 
Each of these platforms handles colour in a 
slightly different way. In particular, native hardware 
suffers from severe memory restrictions, and 
cannot handle colours in the same detail that the 
other two platforms can. If you were to print all 
the red shades from dark to light you would find 
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it would be a continuous strip in QPC and the 
Q40/60, but have steps in the Aurora. 

To illustrate this run QCP_obj in QPC high colour 
mode and then in QPC 8 bit mode, which mimics 
as far as possible the colour handling of the 
Aurora. In effect the Aurora misses out some 
colours. When | was trying to find a suitable 
purple colour, | found several that were perfect in 
QPC, but which appeared as too blue or too red 
in the Aurora. This was a big problem in some 
programs where a mauve window has a purple 
border It was only when | knew RGB colour 
56128 corresponded to colour 83 on the palette 
that | had a shade of purple that looked the same 
on both systems. 


Icons 

When | had finished recolouring the program, it 
was time to think about icons or sprites. | started 
by doing some research on QL websites, and 
looked at the work of Wolfgang Lenerz, Per 
Witte and Tim Swenson. Wolfgang has written a 
program to transfer PC graphics in BMP 24 bit 
format into QL graphics; Per has written pro- 
grams to display icons; and Tim has put a collec- 
tion of sprites on his web page. 

Their web addresses (in order) are: 
www.scp-paulet-lenerz.com/14mljkl24/wolf/download 
http://knoware.mysite.freeserve.com 
www.geocities.com/svenghj/myfree.html 


When | went to Tim's site | struck oil with the 
minimum of prospecting. On his site are a series 
of mode 16 sprites designed by Francois van 
Emelen, and these fitted perfectly with the Just 
Words! colour scheme. 

There were two snags. The sprites were larger 
than the ones | was already using, so some new 
adjustments had to be made to the menu in Easy- 
Menu. In addition, although you can load 16 bit 
Sprites into EasyMenu and save them in a _men 
file, these sprites are not displayed when you 
load that saved _men file a second time into 
EasyMenu. Each time you have to reload the 
sprites in EasyMenu. This is a little bit annoying, 
but stil worth the effort. 

Francois’ sprites gave me a new problem. Along- 
side these beauties my low resolution Just 
Words! logo looked cheap and dowdy. Fortu- 
nately | had the logo in PC _gif format. | loaded it 
into the Paint program that comes with Windows, 
smoothed out the jagged edges, did a little bit of 
recolouring and saved it as a _bmp 24 bit file. | 
then used Wolfgang Lenerz’s program to transfer 
this to QL format. 
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The Challenge The Result 
It takes a lot of effort to take the first steps in 
using the GD2 colours, but once you start your 
enthusiasm and knowledge quickly grows. Inevi- 
tably you come across problems for which you 
have to find solutions. If you need help with 
these, then come to the QL2004 show. Wolfgang 
Uhlig will be leading a colour workshop and there 
will be many people present who have worked 
with the new colours. 

You do not have to program in the pointer 
environment to use the new colours in your 
programs. Even a simple SuperBasic program 
can be recoloured without too much difficulty. 
Why not look though your own work and see 
which of your programs could be given a 
make-over. 


WINDOW 250,150,0,0 ; 
BORDER 2,248 The Simple BASIC Program 


PAPER 0 : INK 7 : CLS 

red=0 : green=0 : blue=0 

print_colours 

REPeat change 

e$=INKEY$(-1) 

e=CODE(e$) 

SELect ON e 

= 114 : REMark r key — increase red 
red=red+1 

= 82 : REMark Shift + r key — decrease red 
red=red—1 

= 103 : REMark g key -— increase green 
green=green+1 

= 71 : REMark Shift + g key - decrease green 
green=green-1 

= 98 : REMark b key — increase blue 
blue=blue+1 

= 66 : REMark shift + b key — decrease blue 
blue=blue-1 

= 208 : REMark Up cursor key —- increase brightness 
red=red+1 : green=green+i : blue=blue+1 

= 216 : REMark Down cursor key : decrease brightness 
red=red-1 : green=green-1 : blue=blue-1 

END SELect 

IF red>30 : red=31 

IF green) 30 : green=31 

IF blue» 30 : blue=31 

IF red<i : red=0 

IF green<1 : green=0 

IF blueci : blue=0 

print_colours 

END REPeat change 


DEFine PROCedure print_colours 

AT 3,23 : PRINT "Red: ";red;" " 

AT 5,23 : PRINT "Green: ";green;" " 

AT 7,23 : PRINT "Blue: ";blue;" " 
Colour=32768 + 1024*red + 32*green + blue 
AT 9,23 : PRINT "Colour: ";Colour 
WM_BLOCK 100,100,15,15,Colour 

END DEFine 
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Q-Emulator Review 


Dilwyn Jones 


We are well accustomed to mention of the QPC2 
emulator in the QL press. Rather less well known 
is Daniele Terdina’s QemuLator. This was original- 
ly written in 1994/95 for the Apple Mac operating 
system, and was then ported to Windows three 
years later. 


QemuLator is shareware. That means you can 
try it out before you actually buy it, then if you 
like it you can register the software with the 
author, paying one of two levels of registration, 
dependent on the level of performance you want 
from the emulator 

For US$ 22.50 you get an emulator which very 
closely emulates an original QL - it runs at pretty 
much the same speed as an original QL and 
seeks to emulate as much of the hardware as it 
can - 68008 processor, memory, keyboard, video, 
sound and even a 256K memory expansion. You 
can also access QL floppy disks and the PC hard 
disk. 

For $40 you get what is called an ‘expanded QL’ 
registered version, which includes all of the 
above and speed limited only by your PC's per- 
formance. It can also use up to 16MB of RAM, 
accelerated video driver and level 2 filing sys- 
tems (use sub-directories). You also get access 
to QXLWIN filing systems (read and write, but not 
format or create them). 

At the time of writing, 25 and 40 dollars 
translated roughly to these European currencies: 
259° IEUR 20... “£13.70 

40$ EUR 3280 £21.90 


Assuming you download the emulator from the 
author's website, it consists of a download of 
about 450KB. This is the unregistered demon- 
Stration version, limited in speed and functionality. 
Registering gets you a code which you enter 
into QemuLator to give it whatever level of func- 
tionality you chose to pay for The unregistered 
version is quite slow, about 30% of the speed of 
a standard QL, so not very good at all for serious 
use, but does allow you to try out the emulator 
to some degree. in addition to the speed restric- 
tion, you cannot access serial and parallel ports 
and there is no sound or mouse emulation and 
no ramdisk. 

There is also an option to get a temporary regis- 
tration code, valid for a given time. | was given 
this type of code to allow me up to a month to 
evaluate the emulator and write this review. 
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i Dad version forfiee for two Boke Then if Fyou like. you 
ul ha? after you’ ve ee fort vou receive a code to unlock : 


HL Limited Mode | 


: _ Demo Mode [Original aL" registration) : | Register... 


[Quit | : 
In Demo Mode’ you can only téad and min the provided aL a : 
__ program. Two modes correspond to the two levels of fegistration. a 


In ‘Limited Mode! speed is severely limited (30% that of a teal an) and 
sound and mouse emulation are not available. : 


Both in ‘Demo Mode’ and in ‘Limited Mode’ you can't access some 
Q-emuLator's features available: ory to ngieied users rele and « 
patallel ports. RAM disk, etc. eo : 


Figure 1. The opening screen of the unregistered version 


Once you have received the registration code, 
you enter if into a registration screen, as shown 
below. 


Register Q-emulal 
[es : 
RegstationCede [~ oat | 


Figure 2. 
Entering regis- 
tration details 


Figure 3 shows the opening screen. This consists 
of the commands bar across the top, the QL 
emulator window in the middle and the drive slots 
at the bottom. 


Figure 3. The opening screen 


The command menus across the top let you 
configure, start and stop the emulator There is 
also the facility on the File menu to screen dump 
the emulator's display to the PC’s printer. 
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Before using the emulator, you need to install a 
QL ROM. The emulator can use any Sinclair ROM 
or Minerva. A recent version of Minerva is inclu- 
ded, and instructions are given on how to save a 
ROM image from a standard Sinclair QL. ROM 
images are also available from the internet where 
copyright status permits. [ve used the emulator 
with version JS and Minerva ROMs with no 
problems. The most recent version of QemuLator 
which | used for this review was blessed with full 
facilities (like the $40 version) and that includes 
the facility to run the Gold Card version of 
SMSQ/E, although it must be a fairly recent 
version of SMSQ/E. To start SMSQ/E you simply 
boot up into QDOS in the normal way then start 
the SMSQ_GOLD file from wherever it's stored 
on your PC. This is pretty much like running 
SMSQ/E on a QL where the machine boots into 
QDOS then reboots into SMSQ/E. The author 
emphasises that SMSQ/E compatibility is to 
some extent experimental, but seemed to work 
pretty well in the time | was using it (| used 
SMSQ/E v3.06 for Gold Card). 

In addition to installing a QL ROM image, you can 
specify the equivalent of a plug in EPROM, in a 
similar way to that in which a QL may have an 
EPROM plugged into the EPROM slot at the back. 
The likeliest option here is to use a Toolkit 2 ROM 
image, saved from a standard QL EPROM, or if 
you prefer you could probably use the disk- 
based reconfigurable Toolkit 2. If you are using 
SMSQ/E, that includes the equivalent of Toolkit 2 
of course. There is in fact the facility to use two 
plug in ROM images if required - | only used it for 
the Toolkit 2 ROM image which worked without 
any problem. 


| Hiscrect 97 cr "Select: | 
[Tho Ret Select. | M Active 
J Select... | T Active 


Figure 4 Specifying ROM to use. 
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You should also set up the devices such as Serial 
ports, parallel port, screen driver details (whether 
using a QL window, full screen or fast screen, all 
have their advantages and disadvantages depen- 
ding on how you prefer to use the PC), whether 
or not to use a level 2 filing system and whether 
or not the TCP/IP facilities (if used, a basic inter- 
net facility is available using the Lynx text brow- 
ser, for example). When setting the screen, there 
is no facility for high resolution display or high co- 
lour modes, QemuLator is an emulator of a tradi- 
tional Sinclair QL after all. If you just want to run 
your existing QL software, go for QemuLator, if 
you want to dabble with high resolution screens, 
GD2 colours etc, pay more and go for QPC2. 
The QL menu lets you specify among other 
things whether or not QemuLator is to use Acce- 
lerated QDOS Graphics Routines. For maximum 
compatibility with QDOS, these can be turned off 
if required. 

The RAM menu lets you specify how much RAM 
to use. Anything from a standard 128K QL up to 
a massive 16MB of memory may be specified 
here. This is a very useful facility, because you 
can set up your QL’s memory to work like a 
Trump Card, Gold Card, or an older 256K or 512K 
memory expander useful for running older 
programs or testing software. 

The Speed menu lets you set the speed at 
which the emulator runs. While this may seem a 
bit of an odd facility at first, the speed at which 
the emulator runs on modern fast PCs means 
that some programs like older QL games run 
much too fast if the emulator is allowed to run at 
maximum speed (which on my 1.8GHz PC for 
example may be 100 times as fast as the original 
Sinclair QL). You can choose between roughly 
QL speed, Gold Card speed or maximum possi- 
ble speed. 

The QemuLator menu lets you register or unre- 
gister QemuLator I'm not quite sure why you'd 
want to unregister it, unless you wanted to pass 
on an unregistered demo version perhaps. 

The View menu lets you turn on or off the status 
bar at the bottom of the device slots section. 
This is normally used for messages, but remov- 
ing it expands the viewing space available for 
the device slots, which is two slots with status 
bar on and four with status bar off Dragging the 
outline further down expands it to 8 slots maxi- 
mum. 

Which brings us to the device slots, a feature of 
QemuLator which | found rather quirky. Forget 
floppy disks, microdrives and hard disks in the 
traditional sense, these are all purpose slots 
which can be any device you want them to be. 
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Think of them as MDVi_, MDV2_ etc up to 
MDV8_, but although they have the name MDV 
they can be defined as being floppy disks or 
hard disks or a mixture. To see how this works, 
look at Figure 5 below 


Figure 5. The 8 MDV slots 


This gives you up to eight devices, MDV1_ to 
MDV8_. If you enable the FLP and WIN alias op- 
tions in the configuration dialogues, these also 
respond to WINI_ to WIN8_ or FLP1_ to FLP8_. 
What you need to do is tell the emulator exactly 
what device corresponds to drive 1. For example, 
if you want QemuLator to access your QXLWIN 
filing system as drive 1, you could specify this as 
C\QXLWIN. If you prefer it to be floppy drive 1, 
you could make it equal to A: and if you want 
drive 2 to refer to the PC’s main hard disk, you 
could make slot 2 into just C:\ and to access the 
PC's CD_ROM drive as device 4 you could make 
slot 4 equivalent to drive D:\. Folders on the PC 
drives can be specified here too, for example, 
you could make slot 8 equivalent to 
CAgemulator\ to access files in QemuLator's own 
folder on the hard disk. Selecting a folder is done 
in pretty much the usual Windows way, as shown 
in Figure 6. Simply right click on the drive slot 
(may be done even when the ‘QL’ is running, 
real-time changes!). In Windows terminology, a 
Folder’ is what we would know as a directory or 
sub-directory, 


+ <2 Program Files 


anner 


Figure 6. Browsing to a folder 
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In Figure 5 | have assigned device 1 to be my 
main QXLWIN (CAQXLWIN). This is the one | 
normally use with QPC2 and is quite large - about 
half a gigabyte - and QemuLator copes with this 
just fine. It is only possible for either QemuLator 
or QPC2 to access this at any one time, which- 
ever claimed it first gets access rights to it, and 
the other cannot access it if both are running at 
the same time, which is perfectly possible. 
Device 2 is the PC's floppy drive AA and the next 
two slots are set to directories called 
C\gemulator and c:\qxl in the Windows part of 
the hard disk {just any old folders, they could 
have been just about anything on the PC's hard 
disk). 

lf | then DIR MDV1_ or DIR FLPi_ or DIR WINL_ | 
get the same results, a list of files in the QXLWIN, 
what other QL systems would treat as WINL_. If | 
do DIR MDV2_ or DIR WIN2_ or DIR FLP2_ | get a 
list of files on loppy drive 1. This shows how 
powerful, yet potentially confusing, this can be. It 
is really useful to be able to make any device into 
any drive or path you want like this, and you can 
change them in real time too to run software 
configured for a particular drive. The downside is 
the scope for error or misunderstandings. My 
setup allows me to DIR FLP2_ yet get a list of 
files on FLP1_. By and large, | tend to just store 
my files on WINL_ and run everything from there 
and use drive 2 to copy to and from floppy disk 
only, then use drive 3 to copy to and from the 
Windows side of the hard disk. It all sounds horri- 
bly complex, but you quickly get used to it and of 
course there is the visual element of always 
being able to see what the definition for each 
device slot is. Where this comes into its own is 
the ability to quickly and easily run software 
configured for a particular drive. For example, if 
the program is configured to run from MDV1_, 
simply copy it onto a floppy disk and set drive 1 
to be floppy disk A:\. The program now runs from 
disk, but as far as the software is concerned it's 
running from a device called MDV, 

The devices facility is rather difficult to explain 
clearly in print and sounds horrendously and 
needlessly complex. In practice, it's so simple 
anyone can get used to it pretty quickly I'd have 
thought. 


Some file utilities are provided with QemuLator to 
help with the task of moving software to a spe- 
cial format to run from the Windows side of the 
PC's hard disk. Normally, if you copy an executa- 
ble program to a PC's hard disk, the job data- 
Space part of a file header is lost - in effect it is 
no longer an executable QL program. QemuLator 
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works around this by providing a program which 
adds 30 bytes to a file, storing the necessary 
extra information. When files are copied between 
QemuLator and Windows using QemuLator itself, 
this “translation” is done automatically. The file 
utility called QLtoWIN_exe (a QL program) can be 
used to manually do the translation on another 
QL system (e.g. a ‘real’ QL or another emulator). 
There is also a complementary program to do 
the reverse process, of stripping the extra bytes 
of information from a QL program which is alrea- 
dy in QemuLator format. These are fairly simple 
programs which just ask you to type in a couple 
of filenames. A_ third file utility called 
MDVtoWIN_exe translates QL files stored on QL 
copy protected microdrives such as old QL 
games into the QemuLator Windows file format. 


It is also possible to indicate if sound emulation 
should be on or not (needs Windows DirectX 
sound facilities) and whether or not a joystick is 
available. This behaves like a QL joystick plugged 
into the CTL1 joystick port on a standard QL. 
Sound is via the sandard QL BEEP command, 
played through the PC's speakers, as long as 
DirectX sound is available. 


To start the QL emulation, you can either go into 
the ‘QL’ menu and click on start, or simply click 
on the QL picture in the main window. It boots up 
with a QL-style screen presenting you with the 
usual Fl or F2 (or F3 and F4 for Minerva) and 
Sinclair copyright notice etc. You can even confi- 
gure it to ‘auto-start’ and bypass this, a facility 
which | think was originally implemented to allow 
a QL operating as a bulletin board system (BBS) 
to restart automatically after a crash or power 
Cut. 


By default, the emulator operates without mouse 
or pointer environment if you are running a 
QDOS ROM image (including Minerva). If you wish 
to run the pointer environment, you need the 
usual PTR_GEN, WMAN and HOT_REXT files to 
be installed. Standard QL ones are fine, there is 
no need to patch or modify anything. To use a 
mouse, the author supplies a file called Mac- 
Mouseil which is RESPRed just after pointer 
environment is installed. This makes the PC's 
mouse operate as a QL style mouse to control 
pointer driven applications. While this is generally 
very good, on my system at least pressing the 
right mouse button did not equate to pressing 
ENTER on the keyboard which | have always 
found useful on other QL systems. If you are 
using SMSQ/E for Gold Card, the SMSQ/E 
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mouse driver is used for mouse control, so you 
do not need the MacMouse driver software. In 
fact, for SMSQ/E purposes, QemuLator now 
emulates some of the Gold Card hardware, just 
enough to support SMSQ/E. For me, this was a 
big plus point of using QemuLator you can 
choose whether it operates as a Sinclair QDOS, 
Minerva, or SMSQ/E system, whichever you pre- 
fer or need at the time. 


Once started, QemuLator performs pretty well 
like you'd expect any QL system to operate. 
Software generally seems unaware that it is run- 
ning on an emulated system, although a very few 
older programs which use obscure hardware de- 
pendent facilities may have problems. In general, 
QemuLator makes a pretty good job of emula- 
ting a real QL and very few programs have pro- 
blems running. Indeed, I'd say you are likely to run 
into more problems with games running too fast 
on a decent fast PC than to have problems not 
being able to run a program. You may well get 
ROM dependent problems as you would on a 
standard QL, programs which only run on a 
version JM or JS ROM, or programs which do 
not get on with Minerva. Do not blame 
QemuLator in this case, the problem lies with the 
software if it won't even run on a different ROM 
version on a standard QL! Software compatibility 
can indeed be described as very good, given my 
experience of emulators of other computers. 


One thing | noticed while starting QemuLator 
with a Minerva 1.97 ROM is that BASIC exten- 
sions which announce their presence upon 
installation seem to send their ouput to the top 
left of a console channel rather than the usual 
channel 0 at the bottom of the screen. Turbo 
Toolkit is one such victim - normally when you 
LRESPR this toolkit it displays a copyright notice 
in channel #0. It does not seem to have any 
harmful effect, just an example of a slight 
difference in how things work. 


A slight hickup became obvious when trying to 
use Archive under pointer environment. Normally, 
the pointer environment saves and restores the 
screen display of programs as you CTRL C out 
and back in. | suffered a number of problems 
where the display was only partly restored. 
Usually, the top left corner of the display was 
missing - see the example screen dump in Figure 
7. And when using Quill, the red ruler dots and 
numbers would sometimes just go missing. This 
only seemed to happen with the original QL 
programs - Xchange did not seem to be affected. 
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In all other respects, the programs seemed to 
work normally. 


Figure 7 Screen save/restore problem. 


The first real problem | ran into was with my 
printer Since | have owned this PC, Ive put the 
printer onto a USB port. QPC2 handles this by 
allowing the PAR port of the QL to be linked to 
the USB printer QemuLator cannot do this in the 
current version at least, printers can only be on 
the parallel port. This is nothing to do with the 
printer itself, it has Epson control code sets and 
in fact has both USB and parallel ports, it is 
simply that QemuLator does not know about 
USB printer interfacing. This is one area where I'd 
urge the author to implement a new facility, to 
allow QL PAR to equate to PC USB ports (in the 
same way aS QPC2 is able to do) given the 
increasing popularity of USB printers. 


The keyboard includes some useful new key 
combinations, for example, the Backspace key 
on a Windows keyboard corresponds to the 
CTRL LEFT arrow key on a QL, and the PC's 
DELETE key corresponds to CTRL RIGHT on a 
QL keyboard. Page Up and Down correspond to 
SHIFT UP and DOWN on a QL keyboard and the 
SCROLL LOCK key corresponds to CTRL F5 on 
a QL. 


There are some less obvious special keys too. 
Fi2 and SHIFT Fi2 toggle between Window 
display and Full screen or fast screen display. The 
INSERT key pastes up to iKB of text from the 
Windows clipboard into the QL type-ahead 
keyboard buffer which is now up to 1KB in size 
rather than the mere 7 bytes on an original QL if | 
remember correctly. This makes it quite easy to 
transfer short bits of text from a Windows 
program to a QL program. CUT or COPY the text 
in the Windows program, go into the QL emulator 
and press the INSERT key which will to all intents 
and purposes type the text into the waiting QL 
program via the keyboard buffer. 
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QemuLator includes a RAMdisk driver. RAMdisks 
are like floppy disks built into the computer's me- 
mory, but they lose their content when the com- 
puter is switched off or the emulator is stopped. 
They make useful temporary file storage space. 
This RAMdisk does not include level 2 directory 
handling facility but is adequate for most purpo- 
ses. The RAMdisk may be dynamic or static, that 
is, you Can force it to be a given size or have it 
vary Its size automatically as required. If you pre- 
fer you can switch off QemuLator’s RAMdisk and 
load other RAMdisk software if you have a better 
type of RAMdisk which you prefer to use. 


Fed up of having to set your QL clock’s date and 
time every time you turn on the QL? Forget it, 
QemuLator takes its time settings from the PC 
which remembers the time even if switched off 
You can even change the QL clock while the ‘QL’ 
is running and have it revert to the correct time 
next time it starts. 


Up to 4 serial ports are available in the expanded 
registration version (2 in other versions). These 
serial ports can use higher baudrates than a 
standard QL serial port (up to 256,000 baud if 
supported by the PC's serial ports compared to 
up to 19.200 baud for a standard QL). The serial 
port drivers do not support the TRA character 
translate facilities built into some later QL ROM 
versions and into SMSQ/E, although the usual 
parity settings, flow control, CR and EOF settings 
are available. | mentioned the parallel port above, 
in fact up to 2 parallel ports can be used if 
available on the PC. 


Daniele has implemented SCK_ and TCP_ device 
drivers to allow use of the Windows TCP/IP 
Stack. Only a limited subset of the socket func- 
tions are available, but it is enough to run the 
QDOS version of the Lynx Internet browser and 
FTP TCP/IP is on by default, although it can be 
disabled in the emulator configuration if required. 
'm afraid | did not get time to tinker with this 
facility before producing the review. The only 
other “QL” system | know of with any degree of 
inbuilt TCP/IP support is Richard Zidlicky’s uQLx 
emulator 


Configuration is one of the emulator’s strong 
points. You can configure a large number of set- 
tings and store these settings so that the emu- 
lator always starts with your preferred settings. 
You can save several configuration files and open 
one of your choice later if required - all this is well 
documented in the manual. The manual is a 
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HTML file, which is viewed in an internet browser 
like the Internet Explorer browser supplied with 
Windows. This Is a brief manual describing mainly 
the QemuLator specific facilities and not a QL 
manual as such. 


Some excellent QL graphics demos are supplied 
with QemuLator including some impressive ani- 
mations, it is well worth running these. Set device 
slot 1 to point to QemuLator’s "QL Software\QL 
Demo’ folder on the PC's hard disk and run the 
BOOT program then select one of the 4 supplied 
graphics demos and prepare to be amazed - you 
probably never knew the QL could do graphics 
like this! 


Speed 

Since an emulator has to translate the 68008 ma- 
chine code instructions into equivalents for the 
processor used in PCs, it is bound to be slower 
than a true hardware based computer. But since 
QemuLator and QPC are designed to be run on 
PCs, and modern PCs have very fast processors, 
the emulators themselves are likely to be much 
faster than an original QL. Indeed, on a modern 
fast PC, both QemuLator and QPC2 may be ex- 
pected to be even faster than a hardware QXL 
emulator for example. | ran some standard bench- 
mark programs on my machine (a 1.8GHz Duron 
processor system) to see how well the emulator 
performed compared to a standard QL, a Gold 
Card QL and to the nearest competitor QPC2. 
QemuLator performed rather well in these tests, 
being much faster than even a Gold Card QL. On 
most tests, it was very similar to or very slightly 
faster than QPC2 in terms of speed, although the 
differences between QDOS SuperBASIC and 
SMSQ/E SBASIC means that BASIC programs 
inevitably show up as being much faster running 
in SBASIC on QPC2 than on a QDOS ROM in 
QemuLator SBASIC performs more like compiled 
SuperBASIC in terms of speed. If you run 
SMSQ/E for Gold Card on a full speed 
QemuLator, SBASIC programs run at close to the 
same speed on both emulators. If you are not 
really interested in the cold hard figures below, do 
not worry, QemuLator handles and feels like an 
extremely efficient QL, more than fast enough for 
just about any purpose! 


| used 3 ‘standard’ tests to compare systems, and 
one very simple BASIC program of my own. 


The ‘QSI is Eros Forenzi's QL Speed Index soft- 
ware. This runs as an application in Archive and 
is intended to work as a measure of speed 
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somewhat independent of the different speeds 
you might expect by simply running a program in 
BASIC on the various systems. 


Bogomips and Dhrystone figures are applications 
used on other computer systems such as Win- 
dows and Unix as a relative soeed measurement 
index system. | used Thierry Godefroy’s QL ver- 
sions of these programs to produce the figures. 


Finally, for a very simple test of BASIC | applied 
the following short program: 


LET b = 0 

LET iterations = 1E6 

FOR a = 1 TO iterations 
LET b = b4lL 

END FOR a 


and timed how long this took to run. In all cases, | 
tried to run the tests several times and take ave- 
rage readings where relevant, to increase accu 
racy. Whatever your feelings about benchmarks 
and speed tests in general, rest assured, Qemu- 
Lator and QPC2 are both fast enough not to 
worry too much about speed tests! 


1. QSI Tests 

This was run on QL Archive v2.3. A standard QL 
would take 800 seconds to run the test, while a 
16MHz Gold Card should take 123 seconds and 
for reference a 20MHz QXL card on a 386 or 486 
PC (SMSQ 2.16) takes 29 seconds. 

This test seemed to give almost identical results 
on all the ROMs used in QemuLator, and when 
running SMSQ/E for the Gold Card. This was 
tested with the emulator set to run at full speed - 
obviously if the emulator was set to run at QL or 
Gold Card speed it would be restricted to the 
same results as those types of QL systems). 
Although | was going to include a second set of 
results based on different system setups such as 
with or without Toolkit 2 or pointer environment, it 
didn't seem to make much difference, the results 
were so Close to each other that it might simply 
have been down to differences in the timing 
system, so | have simply printed an ‘average’ 
figure. 

It took 7.2 seconds to run the test on my Duron 
1800 PC. 

QS! QL index = 11111x times (speed relative to 
standard QL) 

QSI GC Index = 17.08x times (speed relative to a 
16MHz Gold Card QL) 

Computer speed (Gold Card = 100) QS] Speed = 
1708.33 
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This it can be seen for the purposes of running 
the test on my PC that QemuLator is shown to 
be about iit times as fast as an original Sinclair 
QL, or about 17 times as fast as a Gold Card QL. 
| then proceeded to run the test on QPC2 on the 
same computer, with very similar results: 

Took 7.5 seconds to run the test on my Duron 
1800 PC. 

QSI QL Index = 106.67x times (speed relative to 
standard QL) 

QSI GC Index = 16.40x times (speed relative to a 
16MHz Gold Card QL) 

Computer speed (Gold Card = 100) QS! Speed = 
1640 


Thus you can see that with optimal full speed 
settings, QemuLator is very slightly faster than 
QPC2, although as always running speed tests of 
this kind may inadvertently favour one system 
Slightly over the other. 


2. BOGOMIPS 
| then tried the Bogomips test program on both 
emulators and came up with the following results: 


QPC2: 24.53 Bogomips 

QemuLator full speed setting: 30.89 Bogomips 
QemuLator Gold Card speed setting: 1.45 Bog. 
QemuLator standard QL speed setting: 0.21 Bog. 


3. DHRYSTONE 

| then applied the Dhrystone test, the results 
reflecting the number of microseconds for one 
run through Dhrystone code. As the QL timers 
are only accurate to 1/50th second, the tests 
need to be run a large number of times and an 
average result taken for greater accuracy. 

(uS = Microseconds for one run through Dhrystone) 


QPC2 Qem Full Speed Gold Card 
uS : 33.3 32.8 491.5 
Dhrystones per second : 30,080 30, 506 2034.4 
VAX MIPS rating : 17.092 17.363 1.158 


So much for standard tests. | then tried some 
simple BASIC programs. The above tests do not 
reflect the increased efficiency of SBASIC 
compared to SuperBASIC. A simple FOR/NEXT 
loop as described above gave the following 
results: 


QemuLator ROM Full speed Gold Card Standard QL speed 
53 seconds 770 seconds 5300 seconds 

Minerva 1.97 47 seconds 666 seconds 4600 seconds 

SMSQ~Gold 8 seconds 112 seconds 817 seconds 

QPC2 5 seconds n/a n/a 


As if to prove that benchmarks are not always 
the be ail and end all of speed comparisons, this 
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seems to show that SBASIC on QPC2 is nearly 
twice as fast as SBASIC on QemuLator. In fact, 
on the face of it, QPC2 would seem to be more 
than 10 times as fast as QemuLator running a JS 
ROM! 


It would appear on the whole that in raw program 
execution terms, QemuLator with optimal speed 
settings is very slightly faster than QPC2, with 
results varying slightly depending on the test 
being applied. The difference between the two is 
neglible apart from the speed of running a BASIC 
program. 


Pros and Cons of QemuLator 

Pros: 

* Can run QDOS or SMSQ/E (QPC2 can only 
run SMSQ/E} 

* TCP/IP support built in 

* Choice of running speeds and memory confi- 
guration 

* Cheaper than QPC2 

* Support for most QL ROM versions 

* Supports QL second screen with Minerva 
ROM 

* Choice of QXLWIN filing system or storage of 
QL programs on PC hard disk 

* Extensively configurable 

* Sound and joystick emulation available 

* Accurately emulates a real QL 

* Being a true QL emulator, it may prove easier 
to set up and use than QPC2, although this 
may be a matter of opinion. 


Cons: 
* No colour drivers 
* No high resolution display modes 
* Unusual drive handling, although 


ae: aL very flexible 
191.5 * RAMdisks do not use level 2 
0.160 filing system, although external 


RAMaisk software can be used 
* Cannot create QXLWIN file sys- 
tem yet - you have to use one copied from an 
existing QXLWIN file or created by an external 
program 

* Cannot use USB printer ports. 

* Does not handle DD disks under Windows 98 
very well (unless you fiddle in the 
BIOS settings), although this is a 
Windows problem, not a QemuLa- 
tor problem. Handles QDOS format 
disks pretty effortlessly, though. 

* Disk formatting not possible un- 
less the version of Windows is 
NT4 or later, XP or 2000. 
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This review was based on QemuLator v2.3.1 for 
Windows. It requires Windows 95 or later on a 
486 or better processor DirectX is required for 
sound and full screen graphics (built into some 
versions of Windows). The PC used for the test 
was a 1.8GHz Duron processor system, with 
256MB RAM and a 40GB hard disk, running 
Windows 98 SE. 


Should | buy QPC2 or QemuLator? 
There are pros and cons for both emulators, so 
the answer is not a simple one or other If you 
wish to dabble with SMSQ/E, high resolution gra- 
phics or high colour graphics, go for QPC2 of 
course since QemuLator is not designed for 
these facilities. QemuLator is much cheaper to 
buy than QPC2 and if you merely wish to run 
existing QL programs at moderate cost, Qemu- 
Lator is cheaper to buy yet provides good com- 
patibility with a standard QL and gives you the 


JPEG Viewers for SMSQ/E 


Timothy Swenson 


Now that | have my Q40 back up and running, | 
want to be able to view JPEG images that | take 
with my digital camera. The Q40 is very capable 
of displaying good quality color images, esp. 
when in 1024x512 mode. 


My criteria for using a image viewer is that it 
must handle JPEG images and GD2 colors. From 
looking around the Net, | found three viewers that 
fit my criteria, Photon, PhotoQL, and PQIV 


Photon 

Photon is a simple image viewer written by Dave 
Westbury, Photon is executed from the command 
line like this: 

exec photon;"winl_jpg _vulpeak_jpg" 


It will then read the JPEG image, convert it, and 
display it on the QL. If you want to see another 
picture, you have to EXEC it again. Once you 
execute it, a small button pops up on the screen 
with the name of the file. As the loading and con- 
verting process proceeds, a bar moves across 
the button showing the progress. When the pic- 
ture is displayed, you can hit the ESC, SPACE, or 
ENTER to go back to SBASIC. If you want the 
image to stay in the background, then hitting the 
W key will return to SBASIC but leave the image 
displayed. If the image is larger than the Q40 
screen, then only the upper left hand part of the 
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option of using whichever QL ROM version you 
prefer If you are a ‘user’ rather than a tinkerer and 
you prefer traditional QDOS, you will need to go 
for QemuLator since QPC2 cannot run QDOS, 
only QemuLator can do that. QPC2 provides QL 
devices such as FLP WIN and RAM in the sense 
we are used to them (i.e. DIR FLP1_ always does 
a directory of FLPi_ !), rather than the slightly 
quirky system used in QemuLator. 

In the end, | would say that if you want all the 
bells and whistles and all the latest features and 
are prepared to pay the higher price, go for 
QPC2. If you are after a cheaper option, or simply 
wish to run QDOS on a PC so that you can run 
older programs, or you are into ‘retro computing’, 
you should go for QemuLator (but do go for the 
$40 version, it's well worth the extra cash) as it's 
designed to be a QL we all know and love as 
opposed to QPC2 which goes more towards the 
“Super QL’ end of the market. 


image will be displayed. You can then scroll 
through the image. F4 will redraw the image. 
There are command line options to affect how 
Photon displays the image. A \d option confi- 
gures dithering, \m affects the mode (4 or 8), \r 
affects scaling, and \y produces a black and 
white image. | don't know exactly what scaling 
the \r option does. | tried it on a 1024x512 image 
and the image appears larger than the screen. 
Without the \r option, the image fills the screen. 
The \y option for black and white works fine. 
Photon can handle JPEG, PIC, and GIF images. 


PhotoQL 

PhotoQL is a viewer written by Roberto Porro. | 
tested version 019. Once executed, PhotoQL 
comes up with a blank window. You have the 
typical PE loose items; resize, move, sleep, and 
ESC. If you hit the ESC item, a menu pops up that 
lets you Quit, Cancel or Load. If you hit Load, a 
menu pops up that lets you select the image you 
want to load. The menu allows you to navigate 
through the different file systems (WINL_, FLPL_. 
etc). Once you select the image, PhotoQL will 
load the image and display it. Like Photon, Photo- 
QL also allows the file name to be included when 
the program is executed. 


| noticed that it took a fair bit of time to load the 
image and it was displayed taller than it should 
have been. An image that was full screen when 
displayed with Photon, was shown smaller and 
taller with PhotoQL. 
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| tried to load a fairly large image and PhotoQL 
gave a “not found’ error after it tried to load the 
image. The documentation does not mention any 
limitation on the size of the image it can load. | 
have reported this problem to Roberto, so it 
might be sorted out soon. 


PhotoQL can handle the following formats: 
TARGA, BMPPCX, GIF JPEG, PNG, PIC, and TIFF 


PQIV 

PQIV is an image viewer written by Claus Graf, 
one of the designers of the Q40. | tested version 
0.17. Althought the documentation is fairly short, 
the program can do a fair bit. 


Once executed, PQIV comes up with a Window 
with a number of loose items. They are Sleep, 
Wake, Move, Resize, File, Image, and Help. The 
File menu includes Open, Close, Save, Print, Quit. 
The Image menu includes "Rotate 90 degrees 
Right’, "4:3 Aspect Ratio”, "Shrink to 2:1", Extend 
to 2:1’. 


By default the display window is fairly small. 
Using the Move and Resize items, you can make 
the window a lot larger To load an image, click on 
File, then Open. A menu pops up letting you 
move around the file system looking for the 
image you want to load. Once the image is loa- 
ded, if it does not fit inside the Window, there will 
be scroll bars on the bottom or right hand side of 
the Window. These are used for scrolling around 
the image. With this feature, | was able to load 
some fairly large (about 700K) JPEG images with 
no problem. 


Once you have an image loaded, 
the Image item has a menu of 
image manipulation commands. 
The most useful is the "Rotate 90 
degrees Right’ option. If you take 
photographs in Portrait instead of 
the normal Landscape mode 
(taller than wider), the image will 
look sideways on the screen. 
Using the rotate command, you 
can turn the image upright. There 
are other aspect ratio commands, 
but | don't know exactly what 
they do, even if I've tried them. 
They might make more sense 
and be more useful to someone 
else. 
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Once you've manipulated an image, you can 
save the image. The other two programs were 
just viewers and had no "save" capabilites. 


The Help item has a small menu for Version and 
Help. Neither of these menu Selections did any- 
thing. | don't know if the program was expecting 
to find a certain help file or not, but nothing ts 
mentioned in the documentation and no error is 
shown. 


Analysis 

Of the three programs, | think PQIV is the most 
useful and the one that | will be using. Photon 
was useful, but | did not like it not using an PE 
window for display. You could not set the image 
aside into a button. Plus, | prefer to have a menu 
where | can walk my way around the file system 
to pick the image instead of having to type it out 
each time. 


| found PhotoQL to be slow and not able to load 
the larger images | needed to view. These ima- 
ges were taken directly from my digital camera. 
The image it could load, | had to downsize to 
1024x512 pixels. 


Granted it took a bit to copy these large images 
via floppy to the Q40, but with access to a CD- 
ROM, | may be using the Q40 more for reviewing 
my photo library. 


The following picture shows the output of a 
640x480 picture made with a mobile phone camera 
on QPC (the “communications” setup at the US 
show). 
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Text 87 PROGRAMMING 


QD 2003 £ 49.00 
£79.00 QD + QBasic £ 63.00 
Typset 94 £ 29.001} Qn + Qliberator + QBasic £ 104.00 
Fountext $4 £ 39.00 Qliberator £50.00 
2488 drivers £ 29.001] Master Spy v3.3 £ 30.00 
Epson ESC/P2 driver: QPTR £ 32.00 


£ 26.00 Easyptr pt 1& 2 (together) £ 30.00 
Text 87 Easyptr pt 3 (C library) £ 14.00 
High Colour QMake £ 18.00 
Patch QMon/JMon £ 22.00 


: Basic Linker £ 22.00 
Available Now DISA 3 £34.00 


£9.00 QMenu £ 16.00 
Another High Colour Update 


We are now able to release a mew version of DATAdesign. This features a 

new, High Colour interface and icons and some other improvements. I am 

also hoping that a new version will will be available soon which will be 

able to print using the QD/QSpread print filters since this will make it 
much easier to produce hard copy. 

Now that the summer is here many of you will be out enjoying the sun 

but we hope to see you at the many events planned for this autumn. 


Available Now! f Thess proeamns: uae been i 
. ° ted ¢t 1 
High Colour Drivers for Gold | ied Se aoe 
/Super Gold Card SMSQ/E | eae 
(Aurora only - Send old master disk FEL tI 
as proof of purchase) QPAC 1 


£25.00 | cas. ee 


_  <<<<< SuQcess >>>> 
— a _ Please send old master 
| disk and £ 1.60 to cover 


| a Keyboard Membranes ) postage and eopying. fe 


' 
Last Few: DATAdesign 
£ 17.50 ca aa P&P High Colour 22 


UTILITIES }| ———— | 
FiFi 2 £21.00 | These Programs are , paid Upendes: ) 
QSup £30.00 | — 

QSpread 2003 £51.00 | | QSpread 2001 to 2003 £ 10.50 : 
Cueshell 2 £15.00 | QD 98 to 2003 £ 10.50 ] 


Qload/Qref £15.00 | QPC2 = 
Disk Mate5 £16.50 | “update from v3.xx Free 


PAC 1 £22.00 4£ | update from v2 £ 13.90 
Bane 2 £42.00 | | update from vl £ 34,00 
QTYP 2 £31.00 | Return Master Disk With Order 


QLQ £3000 | 
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Mobile +44 (0) 7836-745501 


\. gmail qbranch@qbranch.demon.co.uk_web : hitp:/noe gbranch.demon 


ID ya ° y 
O Branch 
Feeling out on a limb ? 
Reach out for O Branch. 
Suppliers of Quality G@DOS/SMSQ products 
Hardware and Software. 


20 LOCKS HILL, PORTSLADE, 
E. SUSSEX. BN41 2LB. UK. 


ProWesS 


ProWesS (now free !) £1.60 


DATAdesign £ 20.00 
DATAdesign update £ 8.00 


Hardware 


Second user items are are sometimes available 
from us. 
Call for details. 


QxL I £ 40.00* 
Recycled superHermes £ 65.00 * 


R'cycld SuperGold Card £ 110.00 * 
Recycled Gold Card £45.00 * 


Recycled Aurora £ 65.00* 


Fontutils E 28.00 Qubide £ 45.00* 
File Search £11.00 Qubide Rom Updates £ 8.00 
PFlist £11.00 ei ? fo, 
Dilwyn's Fontpack £ Call urora Cables : 
LINEdesign v 2.16 £ 22.00 AAORS Ot adaptor £ 3.00 
PWfile £17.50 Arfa Braquet £ 8.00 
‘Son of Braquet' £ 18.00 
Paragraph The 'Braquet' £ 16.00 
The ProWesS word processor MC plate £ 6.50 


Demo version £ 1.50 + postage = when available. 


Full Registered version £ 18.00 


Call for details 


Gold Card / Atari / QXL Version SMSQ/E Aurora High Colour 
Version’3:06/nut now! version available now 


Now Only £32.00 upgrade £ 21.00 
QPC 2 v3.13 - full colour version! 


Special offer ! 


Get Cueshell for only £15.00 with any copy of SMSQ/E £ 6 00 
or QPC 2 upgrade ! Now Only 5 ° 


Q Branch Programs 


The Knight Safe 3 £35.00 Q- Route v1.08C £25.00 


upgrades from previous versions £5.00 Route finding programme 


Q - Count £25.00 The Fractal Collection £35.00 


Pointer driven home accounting 
Post and Packing is included with Software Prices 
Unless Otherwise Stated. 


pe ee We can accept payment by Visa, Mastercard and Switch. We also accept 
| WISA | cheques drawn on a UK Bank in Sterling. 

| | You can also pay directly into our bank in Euros. 

ee Barclays Bank Acc# 79016888 sort code :20-71-02 Name :QBranch) 
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Programming in Assembler - Part 10 (2) 
Doubly Linked Lists 


Norman Dunbar 


If we change the structure of our nodes and add a PRIOR pointer to each node and to the root node 
as well, we can store the address of both nodes neighbouring our current one, as shown below. Here 
is the node structure: 


+--+ 4 bytes at the start of each node hold the address of the NEXT node in the 
| NEXT | list. 

+--+ The next 4 bytes hold the address of the node PRIOR to this one in the 

| PRIOR | list. 

+~—-—-———+ 

| DATA | The data bytes can be any size and hold any data we like. 

f+ 


Our conceptual model of the doubly linked list is as follows: 


tt 

| | fn + 
ae Sa + | —S} {Ss rs 
| ‘PIRST. || [ Next. |---| Next [4 > | NEXT | 
———— + +-——---—— + +----——-+ +--+ 

| PRIOR | +—“——| PRIOR | | PRIOR +—+ | PRIOR +—+ 
+———---—— + t-—-—— + 4+—---——-+ t———- + 
ABCD | DATA | | DATA | | DATA | 
+———- + +—— + ft 

1000 2000 1200 
pt 
Adding Nodes 


Adding a new node is still simple. Having allocated a node on the heap, you set it's PRIOR pointer to 
zero and it's NEXT to the current address held in the FIRST pointer - almost identical to the single 
linked list code above. 


Prior equ 4 ; Offset to PRIOR pointer in a node 
Prelude lea FIRST, a0 3 Pointer to storage of first node address 
lea NewEntry,al ; Address of new node 


Then adding a new node to a doubly linked list is as simple as this: 


AddNode empa.1 a0,al ; Don't add the root node to its own list 
bra.s AddExit 3 Quietly exit if attempted 
move.1 (a0), (a1) ; Save current first node in new node's NEXT area 
move.1 a0, (a1) ; No PRIOR node for this node 
move.1 ai, (a0) 3; Store address of new node in FIRST storage area 


AddExit rts 


As with single linked lists there is nothing to it. The new node is always added at the start of the list, 
so the value in FIRST always points to the latest node added. The first non root node in a doubly 
linked list has no real PRIOR node, so that part of the newly added node is simply set to point back at 
the root node. 
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Building up the linked list above in stages, we would start like this: 


+-—-——_-++ +--+ 
| 1200 | | 0000 | 
te + +-—-———— + 
| ooo | | ABCD | 
+—--—— + +——-—-—-+ 
ABCD | DATA | 
+———-——— + 
1200 


When we add the node at 2000 as the second node, we get the following: 


+-—-—- + +—--— + +--+ 
| 2000 | | 1200 | | 0000 (| 
+----——— + +-—————— + +--+ 
| 0000 (| | ABCD | | 2000 | 
Sana + +——---—— + +-——-——-+ 
ABCD | DATA | | DATA | 
+——_———— + tent 
2000 1200 


And finally, adding the node at address 1000 gives us this: 


+ + +-----—— + + + te 
| 1000 | | 2000 | | 1200 | | 0000 | 
+—————— + + + +—— + tt 
| 0000 (| | ABCD | | 1000 | | 2000 | 
+—-———-+ +—___—_—— + +— + +————— + 
ABCD | DATA | | DATA | | DATA | 
+ + +--+ +——__—_—-++ 
1000 2000 1200 


You can see how each node points onward to the NEXT one and also backwards to the PRIOR one. 
The last node nas no NEXT nodes, so it has its NEXT pointers set to zero to indicate the end of the list. 


Deleting Nodes 

Deleting a node is much simpler. There is no need to scan the entire list from the start looking for the 
node prior to the one you want to delete because you already know it's address by following the 
PRIOR pointer backwards from the node to be deleted. 


Here's the pseudo code to delete a node. We assume, as before, that AOL is the root node pointer 
and AiL is the node to be deleted. 


lf the two addresses are equal, we cannot allow the root node to be deleted, exit with an error. 


If the address in the root node's NEXT pointer is zero then we still have an empty list so the value in 
Ai must be illegal. Exit with an error. 
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Fetch the deleted node's PRIOR pointer. Every real node in a list will have a valid PRIOR pointer, only 
the root node has no prior pointer and we don't allow that to be deleted. 


Store the NEXT pointer from the deleted node into the NEXT pointer of the prior node. 
Fetch the deleted node's NEXT pointer, which might be zero if we are deleting the final node in the list. 
If it is not zero, store the deleted node’s PRIOR pointer in the next node's PRIOR pointer. 


Exit without error. 


That's the pseudo code, here's the real code to do all of the above. 


Prior equ 4 3; Offset to PRIOR pointer in each node 
Prelude lea FIRST, a0 3; Pointer to storage of first node address 
lea OldNode, ai ; Address of node to delete 
moveq #ERR_BP, dO ; Bad Parameter = trying to delete the root node 


Now, here's the actual code to find and remove the requested node. 


Don't allow the root node to be deleted 
Bale out with error if attempted 


DelNode empa.1 a0,al 
beq.s DelExit 


woo 


Nee 


emp.1 #0, (a0) ; Do we actually have a list ? 

beq.s DelExit ; Yes, node not found, exit with error 

move.1 Prior(al),a0 ; Fetch the deleted node's PRIOR pointer 

move.1 (al), (a0) ; Store the deleted node's NEXT pointer in the NEXT 
3 pointer of the PRIOR node 

move.1 (a1),a0 ; Fetch the deleted node's NEXT pointer 


move.1 Prior(al),Prior(a0) ; Store the deleted node's PRIOR pointer in 


the 
3 next node's PRIOR pointer. 


DelFound move.1 (a1), (a0) ; PRIOR node's NEXT = the deleted node's NEXT 


address 
moveq #0,d0 3; Node deleted ok 
bra.s DelExit Bale out with no errors 


Nee 


DelNext move.1 (a0),a0 AQ now holds the NEXT node in the list 


wee 


bra.s DelNode 3 Go around again 
DelExit tst.1 dd 3; Set zero flag for success, unset for error 
rts 


Finding Nodes 


As with single linked lists, you may have a need to locate a specific node by its contents, so you need 
a generic FindNode routine again. The fact that the list has two pointers this time around is the only 
difference, so the code is basically the same as for the single linked list above. 


The only difference is the offset to the data part of the node needs to be set to 8 bytes instead of 4, 
so while the code for the FindNode remains the same, the code for the Compare routine needs to be 
changed to the following to account for the extra pointer. 
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As before, the comparison routine must preserve AO, Ai, A2 and DO or it will all go horribly wrong. 
NData equ 8 3; Offset from start of node to the data part 


Compare emp.1 NData(a3),(a2) ; Is the data in the node = the value we want? 
rts 3 Exit with Z set if so, unset otherwise. 


Again, if an attempt is made to ‘find’ the root node, then it will fail. 


A Better Mousetrap 


Because the code for the linked list find routine is identical except for the offset in the compare 
routine you can use the same code. If you modify it so that it passes the offset over to the compare 
routine in a spare register say DiW for example, then you can even have the same compare routine 
for both single and doubly linked lists, as shown below. 


Compare emp.1 O0(a3,d1.w),(a2) ; Is the data in the node = the value we want? 
rts ; Exit with Z set if so, unset otherwise. 


Another method, much loved in the internals of Microsoft Windows, is to store a word holding the 
offset to the data at the start of each node. This would remove the need for the DiW register to be 
passed into the comparison routine as a parameter as it could easily extract the data from the node 
itself, as follows: 


Compare move.w (a3),d1 ; Fetch the offset to the data from the node 
emp.1 O(a3,d1.w),(a2) ; Is the data in the node = the value we want? 
rts 3; Exit with Z set if so, unset otherwise. 


The drawback to this method is the redundancy of the data - each and every node has to have the 
first two bytes set to the offset to the data plus 2 for the size of the offset word itself. Two extra bytes 
per node may be the difference between getting all the data in memory or not. It is, of course, always 
up to you. If you decide to go down this route, don't forget to amend the code to add, find and delete 
nodes to take the extra two bytes into consideration when manipulating the pointers to NEXT and 
PRIOR. Your root node must also reflect these changes and have an offset word added to its own 
structure. 


You might see a need to bulld a couple of comparison routines to compare two nodes rather than the 
example above where a node is being compared with a value. On the other hand, you could simply 
write one routine to compare two nodes and when looking for a value, create a dummy node and use 
that in the comparison routine. That way, you don't need separate routines to compare values and 
nodes. 


Double Trouble 


The problem with a doubly linked list is that while adding nodes is just as simple as before, but deleting 
them could be problematical. If you are passed the address of a node which Is not in the list, how do 
you tell that it is or is not a valid node address? You can end up trashing bytes of memory almost at 
random as you start changing the NEXT and PRIOR pointers for two areas of memory which may not 
be in your list. 


My solution is to use a flag word or long word after the two list pointers in each node and when 
passed in a node address to delete, compare this value in the flag to see if it is correct before 
attempting to delete the node. As ever, | leave this ‘as an exercise for the reader’ to modify the code 
above to carry out said checks. 
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Sorting Lists 


The best way to sort a list is not to have to sort 
it at all. When you store a node in the list, store it 
in the correct place according to its value. A 
doubly linked list is used here again as you will 
need to go NEXT until you hit a value greater 
than the one you want to insert, then you might 
need to go PRIOR to insert it in the correct 
location. Il leave you to figure out that little 
exercise. 


There is an another way, which involves TREES 
of nodes rather than lists. A tree is simply a 
linked list which has a LEFT) RIGHT and UP 
pointer in each node. 


With a tree, the nodes are not in a long line, but 
they are off to the LEFT and RIGHT of the root 
node. Each node may itself have children to the 
LEFT and RIGHT as well as a parent found by 
following the UP pointer 


Unfortunately, trees are a bit beyond my skills at 
the moment. | remember doing them in college 
and learning all the different ways to navigate 
them, but | cannot remember much about them 
nowadays - it’s been over 30 years since | last 
considered them. 


Remember those arrays? 


Way back at the start of this article, | mentioned 
arrays and their problems. Well, combining an 


DBAS2HTML 


Wolfgang Uhlig 


| have written a small utility which makes a 
HTML-file out of a DBAS-database. It is a 
SBASIC-file so that you can edit the included 
CSS-style attributes and /or the layout of the 


array with a linked list could be useful - but 
remember, the array is limited by the fact that you 
have to pre-define the number of entries. 


Bearing this in mind, you could allocate an array 
of, say 1000 entries of 4 bytes each. Each entry 
in the array holds the address of an individual 
node, not the actual data stored there. Our 
address book system of 100 byte strings (not 
much of an address book | admit !) will now only 
need about 4Kb plus 102 bytes per used node - 
including the string length word for each entry. 
Using a plain array it would need almost 102Kb 
even for a blank address book. 


Now you have compromised on memory needs 
as you don't allocate the space required to store 
your data until you need to, and you do allocate 
a much smaller amount to hold the ‘contents 
table’. As you create new nodes, add their 
address to the array. You can still use the single 
or double linked lists if you wish, but there is no 
need. The array holds all the locations of each 
node in the order that they were created and 
you can navigate forwards, backwards and even 
access nodes at random using this method 
because the formula to find a given node is 
once more usable. 


Have fun trying that out! 


That's it for linked lists until next time when we'll 
get the real meat of the demo routines sorted 
out. 


table in order to meet your personal wishes. This 
program |s really useful if you want to print your 
database with formatting options you don't have 
on the QL. If you want to show the resulting 
HTML-file with the ProForma HTML-viewer, you 
must delete the CSS-style attributes which can- 
not be handled by ProForma. You can download it 
from my website: www.uhlich.ni/ql/util.html 


100 REMark ***x* small routine to reformat a DBAS-database into HTML 
110 REMark ***** formatting with CSS2 styles, thus not compatible with 
120 REMark ***** Proforma HTML viewer unless you delete the style block 


130 REMark *XXx** 
140 : 

150 open #3,con_ 
160 outl #3 


2002 - Wolfgang Uhlig - w.uhlig@tiscali.nl 


170 db$=file_select$("which database?",,,"_dbs") 


180 close #3 
190 Open_data #3,db$ 
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|im stilie: Winkel 12 _ D- 47169 Duisburg 
Tel. 0203 502011 Fax 0203 502012 
http://smsq.j-m-s.com smsq@j m s.com 


be EB 
J-M-S is moving! 
G a 
But the only visible change is a new street name! 


Please note, that the address change will become 
active on October, 1st., 2004. It will be 


Kaiser-Wilhelm-Str. 302 


and even the postcode remains the same! It is 

| possible that during the move, phone and internet 
facilities will stop working for a day or two, but the 
phone numbers will move with me. 


Other changes? Well, except from the fact that after this 
issue is out, all time will go into renovation etc. until the 
next issue will be due (fortunately delayed to be ready at 
QL 2004 - what a coincidence). But the new office will be 
larger, and hopefully less hot in the summer ... laser prin- 
ters and human brains don’t work well at temperatures 
over 36° -| can tell from experience! 


| will be at the Berchtesgaden show beginning of 
October, of course! 

| have taken the time to update the SMSQ Homepage 
and hope to do it more often - | know, | said this before, 
but I’ll try even harder. Why not have a look: 


http://SMSQ.J-M-S.COM 


me OL Techy mc FF ae 
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fieldecount=FLNUM( #3) 
reccount=COUNT (#3) 

REMark ***** read field names 
DIM n$(fieldcount—1, 20) 

FOR i%=0 TO fieldcount-1 
n$(i%)=FLNAME(#3, i%+1) 

END FOR i% 


REMark ***X* write array to HIML—format 
open #4,con_:outl #4 
name$=read_string$("Filename",,"Please give only a name for the\HTML-file, no 


path, no suffix.",20) 


330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 


close #4 
Open_over #4,"ram1_"&name$&".htm1" 


print #4,'«!doctype html public "—//W3C//DTD HTML 4.01 Transitional//EN"> '! 
print #4,"«html" 

print #4,"«head>" 

print #4,'«meta name="author" content="?"! 

print #4,'«meta name="generator" content="Suqeess, the QL database manager") ' 


REMark ¥%X4XXXXXXXHKKK HK KKK KKK ERE RK KKK ERK EEK EKER KEK ERK RE IR KEE 
REMark ***** style elements and attributes, can be adapted to your wishes 
print #4,'<STYLE type="text/css">! 

print #4," !—" 

print #4," body, div, table, thead, tbody, tfoot, tr, th, td,p is 
print #4,' font—family :"Verdana, Arial, Sans-Serif"; '! 
print #4," font-size :x-small }" 

print #4," table {" 

print #4," border—collapse: collapse; " 

print #4," background-color: #F4F4F4;" 

print #4," i 

print #4," ta {" 

print #4," border : 1px solid Maroon;" 

print #4," height : 14px;" 

print #4," padding : 2px 2px 2px 2px;" 

print #4," text-align : ieres* 

print #4," ae 

print #4," #big {" 

print #4," font-size : large;" 

print #4," color : Teal;" 

print #4," pa 

print #4,"-—)" 

print #4,"«/STYLE>" 


REMark ***%* end of style definition 
REMark ¥XXXXXHKHX KKK KKK KK KKK HK EIR KK EKER KKK KERR KK KIER KK KKK EEK 
print #4,"« /head>" 
print #4,"«body>" 
print #4,"«table" 
print #4,'«thead><tr id="big"> 'gmame$&'« /strong « /tr<«/thead> ! 
print #4,"«tbody>" 
REMark ****x first fieldnames 

for i%=1 to fieldeount 

print #4," <td>< strong» "&n$(i%-1) &"« /strong>< /td>" 

end for i% 


REMark ***** now the rest 
for i%=1 to reccount 
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800 RPOSAB #3,i% 

810 print #4," ctr" 

820 for o%=1 to fieldcount 

830 print #4," <td> "&FETCH(#3, 0%) &"« /td> " 
840 end for 0% 

850 print #4," [tre 


860 end for i% 

870 print #4,"«/tbody>" 
880 print #4,"«/table>" 
890 print #4,"« /body>" 
900 print #4,"« /html>" 
910 : 

920 CLOSE #3, #4 

930 open #3,con_:outl #3 


940 id=item_select("Ready!","ram1_"&name$&"..html has been generated", "okay") 


950 close #3 
960 STOP 


Easy Suqcess 


How Suqcess? came 


EasyPTR programmers 
Bob Spelten jr 


When the new colours came 
out we (Wolfgang Uhlig and |) 
immediately wanted to modify 
Suqcess to make it look better. 
But first we had to learn and 
understand how it all worked 
and how to use them. Much 
was explained in various QL 
Today articles and emailing the 
experts also helped us on the 
way. As the Suqcess menus 
were made with EasyPTR this 
presented the first problem, be- 
cause the new colours could 
not be set there directly. Wolf- 
gang Uhlig has solved that 
partly while making QCoCo as 
explained in QL Today v8i5, but 
that still meant a lot of extra 
programming to recolour all the 
Info Windows and Loose Items 
from SBasic. 

The first major helo came from 
Marcel Kilgus when he - in one 
night's ‘brute force attack” - 
created a new ‘colour version’ 
of EasyMenu_exe where the 
new colours can be set directly. 
Now there was no more need 
to change them from within the 
program. Unfortunately this is 
not an official release (yet). 
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about and hints for 


The EasyPTR menu sizes can- 
not easily be changed from 
SBasic, so Suqcess has seve- 
ral fixed menus for different 
screen sizes, each with their 
own set of sprites. As the new 
sprites are bigger than the old 
ones this meant the menu 
code block would become 
about 2.5 times as large. There- 
fore | wanted to design the 
menus without the sprites and 
change them when each menu 
is opened, with the EasyPTR 
commands MITEM and MINOB 
using the same set of sprites 
for all. 

This presented the next pro- 
blem because these com- 
mands do not like the new GD2 
Sprites. Fortunately Per Witte 
came to the rescue. He had 
solved that problem before by 
making use of the option to link 
sprites together (eg. Msprv & 
Sprv, QL Today v8i6). The trick 
is to first check the mode of 
the sprite and when it’s in a 
new mode, link that sprite to a 
dummy mode 4 sprite. MITEM 
will happily process the mode 4 
and WMAN2 will then show the 


next "new mode” sprite. The 
SPRS command could not be 
used here, although it has no 
problems with displaying the 
GD2 sprites, when used for 
Info- or Loose Objects they are 
overwritten each time the 
status changes or the windows 
are refreshed. 

So, for Suqcess2 | made all 
menus with only text objects, 
Space saving 2/3 for each, plus 
a new. size for Aurora 
(512x480). | appended them 
with the mode 32 sprites made 
by Wolfgang, each paired with 
a mode 4 version and _ still 
saved 10K on the code block. 
EasySprite is only usable in 
mode 4 but the old APPMAN 
program did the job well. Al 
though it crashed regularly in 
the high mode environment, 
luckily it was mostly after | had 
saved the new code. 

Where possible Suqcess2 
makes use of the extended 
system sprites. At the start of 
the program all sprite addres- 
ses are set, dummy’s created if 
needed. MITEM and MINOB use 
these addresses to draw the 
right sprite. When run in mode 
4 the mode 32 sprites are 
skipped and only the mode 4 
ones used. In mode 16 or 32 
they are linked to the mode 4 
Sprites “showing off" their true 
colours. 
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The menu colours are almost 
entirely defined as $2xx sys- 
tem colours, then you can 
choose palette 0 to 3 and load 
your favourite theme there 
(using QCoCo or the Colour 
Utilities Disk). You can change 
colours while the program is 
running. Also in mode 4 you 
can now use the familiar pa- 
lettes Known from QMenu and 
Qpac2. There is a small SBasic 
program to set a system pa- 
lette to the old Suqcess co- 
lours {and make all the other 
applications look like a Suq- 
cess ;-) 

One remaining snag is that the 
scroll/pan arrows colour can 
not be set. For that | made a 
small procedure to set these 


Programming QPTR in 


S* Basic 
(Part 10) 


(It seems we somehow lost track of the part 
numbering in previous issues, but 10 should be 


OK now). 
Wolfgang Lenerz 


We follow on from the last instalment by 
examining, this time, a more convoluted way, even 1 


if it is a “direct pointer read’ 


ll - READING THE POINTER DIRECTLY 3 


colours just before the applica- 
tion window contents are 
drawn, using; 

MAWSETUP #ch\subw,... 

set colours in the Working 


Definition: 

MAWDRAW #ch, subw 

Only the application window 
border colour remains stubborn 
and is set to a mode 4 “gray’ 
stiople, which should be ok for 
most colour schemes. 

The whole EasyPTR package 
needs a big overhaul to bring it 
to GD2 standard but with the 
helo from some experts we 
managed to find a workaround 
for most problems, except for 
the “gray” stipple. Something to 
do for the next update. 


Compared to the previous Suq- 
cess version 119 there is not 
much functionality added to 
version 2. You can now open a 
database "Read Only’, some 
bugs were fixed, improvements 
made in View, in Direct Sort and 
to a few prompts. Every Loose 
Item now has a key attached to 
it. Further changes were mostly 
in the ‘looks’ department. Sua- 
cess2 only runs under SMSQ/E 
3 because of the new colour 
commands. A trial version can 
be downloaded from Wolf- 
gang's site: 

www.uhlich.nl/ql/ 

Full versions can be obtained 
from Jochen Merz Software. 
They come in English, German 
and Dutch flavours. 


— * end% is a variable that determines under 
what conditions this command returns to 


the programmer The conditions are deter- 
mined by setting individual bits in this varia- 
ble to 1, according to what one wishes. 
The following table contains the return 


to 1: 


conditions, if the corresponding bit is set 


Bit set return if: 


to 1 


O a keyboard key, or a mouse button is 
pressed 
keyb. key or mouse button continues 


to be pressed 


2 the key or button is released 
the pointer moves away from the 


With this command the pointer can be read at any 
time and the return from the command can be 
either immediately, or at the occurrence of a 
certain event, as specified by the programmer. 
Contrary to the RD_PTR command that we saw 
last time, there is only one command, RPTR (no 
"RPTRT’). However, RPTR also takes into account 
job events. This command (Read PoinleR) takes 
the following parameters: 


RPTR xabs%, yabs%, end%, winnum%, yrel%, 
yrel%, return$ 
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6 
: 


given coordinates 

the pointer is, or moves out of the 
window 

the pointer is in, or moves into, the 
window 

NEVER set to Ill! 

“special” mode 


Most return conditions may be mixed 
together at your heart's content: if you set 
both bits 4 and 5 to i, then the command 
will return immediately because the pointer 
is always either in or ouside of the window! 
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You may set any individual bit in’ this 
variable to 1 by first setting the entire 
variable to 0 and then adding 2°x to this 
variable, where x is the position of the bit 
in the variable. If | add 2°4 {=16) | set bit 4 
to 1. So, by adding 48 (=16 + 32 = 24 
+25) | set bits 4 and 5. Of course, you 
must add this only ONCE for each bit. 


The “special mode’ which is chosen when 
bit 7 is set, will lock all windows of all other 
jobs and show a special sprite, which can 
be: 


- the change size sprite, if bit 1 is also 
set to 1 

~- the "move window’ sprite if bits 1 and 
0 are both 1 

- the "empty window’ sprite if both bits 1 
and 0 are set to 0 


When bit 7 's set to 1, all other bits (except 
0 and 1) should be set to 1. 


This parameter is also used to set the job 
events on which one wishes the program 
to return. We discussed the job events last 
time, please refer to the last instalment of 
this series. 


The job events are included in the high 
byte of the end% word. To set any of these 
events, proceed as above (2x where X is 
the event number, from 0 to 7) but then 
multiply that value by 256. (Note: from 
S*BazZic, you can only set the first 7 events 
(O-6) and not event nbr 7, as that would be 
exceed the value of an integer in S*Basic. 
You would need to use a negative number 
for that). So, to set job event n° 2, I'd add 
(2 2)*256 to end end% variable. 


~ * winnum% contains the number for the main 


window (=-1) or the number of the applica- 
tion subwindow to which the pointer read 
should apply {especially to know whether 
the pointer is in the (sub-)window or not). 


~ * xrel% and yrel%, which are return parame- 


ters, contain, on return, the pointer coordi 
nates in the window or in the application 
sub-window in which the pointer was when 
the command returned. 

They are both relative to the origin (upper 
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left hand corner) of this window or applica- 
tion sub-window. 


— * xabs% and yabs% are used when bit 3 of 
end% is set to 1. They then contain the 
ABSOLUTE pointer position - when the 
pointer moves from this position, the 
command will then return. 


These parameters also contain, on return, 
the absolute position of the pointer (in all 
circumstances). Again, this is relative to the 
screen origin (upper left hand corner). 


— * return$, another return parameter, contains 
the character code (chr$) of the key 
pressed, or one of the following values, 
with the following meaning: 


Ke content of returnS CHR Meanin 


none 0 no key pressed 

SPACE/left button = 1 Hit 

ENTER/right button 2 Do 

ESC 3 cancel 

Fi 4 Help 

CTRL F4 5 Move window 

CRU 6 Change window 
size 

CTRL Fi 7 Sleep 

CTRL F2 8 Wake 


Thus, with this command, you can also read the 
pointer. Its disadvantage s that it doesn't take into 
account any loose items etc... It is thus more 
difficult to use than the RD_PTR command and 
doesnt use all of the facilities offered by the 
Pointer Environment. 


That's it for today. If you've been following this 
series continuousy, you should now have a firm 
grasp of the concepts used by the Pointer Envi- 
ronment, and also how to use them from S*Basic. 


Next time, we'll look at some additional keywords, 
which wil probably conclude this series. 
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The EPSON EPL 6200 - any good 


for QL printing? 


Roy Wood 


There used to be a large 
number of Epson mono laser 
printers and many of those 
would work with the QL. In 
recent months the number has 
been cut drastically. The good 
news is that the prices of the 
surviving printers have also 
come down to affordable 
levels. So much so that the 
EPSON EPL 6200, which is the 
subject of this review, is now 
about the same price as the 24 
pin dot matrix printers were at 
the start of the QL's 
inception. By printer » 
Standards that is_ still | 
quite high given that a 
cheap colour inkjet will 
set you back less than 
£40 but, as | have men- 
tioned before in these 
pages, most of these 
are as much use to a 
QDOS/SMSQ machine jae 
as a chocolate teapot. | 
The Epson EPL 6200 
does work with a 
QDOS/SMSQ_ machine 
and is a very good prin- 
ter as well so it is worth 
reviewing it here. Many 
of you will have more 
than one system and, | have no 
doubt, also possess a PC of 
some sort so | will also mention 
the PC side of installation and 
use as it goes along. One thing 
to mention here is that potential 
buyers should avoid the chea- 
per version of this printer, the 
EPL 6200L. This one will not 
work with the QL at all be- 
cause it does not have the 
emulations built in. 


The Printer Itself 
The printer is styled along the 
1950's bread bin aesthetic so 
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much in favour with many of 
the modern printers. For a laser 
orinter it has a relatively small 
footprint of 407mm x 436mm 
and stands 261 mm high. There 
is, however a 250 sheet paper 
tray which projects from the 
front by 210 mm. The paper 
tray will hold most of the plain 
paper that you want to feed 
printer with but there is also a 
smaller paper feed guide at the 
top of the main tray. If you place 
a sheet of paper in this it will 


take precedence over the tray 
beneath. Useful for printing on 
coloured sheets and for such 
things as invoices and headed 
notepaper which have a pre- 
printed design. The paper exits 
at the top of the printer into a 
flap which can be closed when 
the printer is not in use. 

It comes with the toner car- 
tridge pre-installed and needs a 
minimal amount of assembly to 
get it up and running. There are 
two different methods of input 
available on the rear of the prin- 
ter A standard centronics paral 
lel interface is provided along- 


side the ubiquitous USB one. 
The only other socket on the 
rear is for the AC input. the 
printer also has a small fan at 
the side to vent the hot air from 
the cabinet. This is probably 
very necessary given its com- 
pact design. 


Installation 

installation for QL computers is, 
of course, not an issue but Win- 
dows will need a driver. This is 
an automatic process and 
EPSON seem to have ma- 
naged to sort out the teething 
problems they had with the 
automatic installation on my 
C80 printer. (| only mention this 
for emulator users who will 
need to get it up and running 
on the PC first) All 
you have to do js to 
plug the printer in and 
leave it switched off 
You run the CD setup 
program and switch 
the printer on when 
‘. prompted to do so. 
This will then detect 
the printer and set it 
up on the PC. Once 
this is done you can 
go to your emulator 
/ and point it at the 
right device to print 
from. | only have 
experience of QPC2 
but it was relatively 
‘ai to get QPC2 to see this 
and set it up to be PAR 1. 

At this point | was full of appre- 
hension because my currently 
installed printer is an EPSON 
C80. This was installed in a 
similar way and, in spite of its 
boast that it had an ESCP/2 
emulation it has, to this day, 
steadfastly refused to do any- 
thing at all when a QL program 
tried to print from it. Marcel and 
| spent a fruitless evening try- 
ing to find out what the pro- 
blem was but could not pin it 
down. At first | was inclined to 
believe that EPSON had either 
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lied about the emulation or 
changed the way it was ac- 
cessed. This was confounded 
when it printed straight from 
the Q40. Admittedly it only 
printed in B&W but that was 
because EPSON had 
cut down the ESC/P2 
emulation on it to be 
monochrome only. 


Let’s print! 

First test was from the 
PC. | just printed a 
short page of text. It 
did this very rapidly 
and the printed output 
was crisp and precise. 
It has a nominal reso- 
lution of 1200 x 1200 
dpi so this should be 
good. the QL will, of 
course, not use this resolution 
but Rich Mellor's extended 
ESC/P2 drivers for ProWesS 
may push it a bit more. 
Next test was to run it & 
up from QPC2. A page 2 
from LINEDesign using 
the standard ESC/P2 
drivers worked well | 
and the output was 
very good. Text 87 
also produced good 


output using the | 
ESC/P2 drivers from 
Jochen Merz. The © 


Xchange suite was 
more of a problem. In 
spite of the driver 
being set to the § 
LQ800 mode which 
had always worked so well 
with other printers nothing 
seemed to happen. | tried it 
again and it printed the page 
with all the translations per- 
fectly rendered (ie £ signs 
etc). Both QD and QSpread 
produced good output when 
used with the EPSON printer 
filter as supplied with the pro- 
grams. It was also able to print 
directly from MicroEmacs and 
this indicates that it handles 
straight ASCII dumps. 
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Advanced Options 

Jochen emailed me a couple of 
test files to see if it could han- 
dle other modes and whether 
the emulations were switchable 
as were other EPSON laser 


drivers. It seemed to fall down 
here because it did not recog- 
nise the control codes sent to 


it to tell it to switch and the 
output was not useable in this 
way. [After several inquiries, 
EPSON told me it cannot han- 
dle EJL - the EPSON Job Lan- 
guage to switch emulation, but 
it was worth a try as we 
thought there must be a way 
of switching it .. and most of 
the hotliners have no concept 
about these details anyway - 
Jochen] Interestingly one of 
these was an LQ dump which it 
had seemed to handle in the 


Xchange suite so there is ob- 
viously something different in 
the implementation of this prin- 
ters control codes. Physical 
switching on modern printers 
has long been abandoned. On 
the CD which comes 
with the printer there is 
a DOS-program which 
wil allow you to 
change emulation 
modes but this is limi- 
ted to running with the 
printer on the paralle 
port (since DOS does 
not know — anything 
about USB) and | am 
not sure how it would 
benefit us unless 
someone could run the 
program and capture 
the output so a similar 
QDOS utility could be run. 


Conclusions 

On the whole this is a 
good, functional, low 
| cost laser printer there 
- are cheaper ones out 
on the market but their 
— ability to handle QL 
he output is questionable 
and the ESC/P2 dri- 
vers available for Pro- 
WesS and Text 87 will 
give you a good quali- 
y print. Lasers are ge- 
nerally cheaper than 
inkjet in overall running 
costs and have a lon- 
ger working life. 

| was — convinced 
enough to decide to buy one 
for my own use. If you are 
looking for a printer which 
gives good monochrome out- 
put from QDOS/SMSQ_ then 
this should be a serious con- 
sideration. The EPSON 24 pin 
Dot Matrix printers (LQ-300+) 
are only around £130 but the 
difference in both the output 
and the speed is considerable. 
The only other printer in the 
EPSON range that boasts an 
ESC/P2 interface is the Stylus 
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Colour 1520, which will handle 
paper sizes up to A2 and has a 
higher resolution at 1440 dpi. 
This is so far untested by me 
and, since it has a hefty £320 
price tag on it will remain so 
unless someone can persuade 
EPSON to give one to me for 
review, 

Given the scarcity of good, 
modern, printers that are QL 
compatible this would seem to 
be a good buy for the user 
who prints a lot of text or B&W 
graphics. 


Editor's Note: 

A good opportunity to list the 
known, working models of 
EPSON printers. The following 
printers are known to work 
perfectly well (full ESC/P2 
colour), but are not made 
anymore. You will find plenty on 
Ebay: 

EPSON Stylus Color (very old) 
EPSON Stylus Color Il (old) 
EPSON Stylus Color 800, 850 
EPSON Stylus Color 740 
EPSON Stylus Color 900, 980 
EPSON Stylus Color 880 (the 
last known model to work) 


SPECIFICATONS 


Interface 


AC Input 
Page Size 


Installed Memory 
Installed Emulations 


Hieght 

Width 

Depth 

Wieght 

Resolution 
Performance 

First Page Out 

Sheet Feed Capacity 
Max Monthly Capacity 


Consumables Life: 


Toner Cartridges 


Photoconductor 


: 1 x USB 


1 x Parallel (Centronics) 


: 220/240v AC with standard IEC connector 
: A4, BS, A5, LT, HLT, GLT, EXE, LGL, 


GLG, F4, Monarch, DL, C5, C6, C10, 
IB5 (Custom size from 76 x 148mm to 
216 x 356 mm) 


: 8Mb, upgradable to 136Mb 
: LJ4, GL2, ESCP2, FX, I239X, Adobe 


Postseript 3 


: 261mm 

: 407mm 

: 436mm 

: 7kg (inc. consumables) 
: 1200dpi 

: 20Page per minute (max using PC software) 
: 10.23secs 

: 250 sheets 

: 30,000 pages 


: Standard Yield Toner Cartridge 3,000 


pages 0138050167 


: High Yield Toner Cartridge 6,000 pages 


0138050166 


: 20,000 pages C13S051099 


The above figures are approximate and are based on the number of 
sheets printed under conditions of continuous printing. 
Intermittent use may reduce page yield. 


Approx Cost in the UK : £ 240 (approx. EUR 360) 


The MOVEM Instruction and its Register List 


Hugh Rooms 


| sent Norman Dunbar an algorithm that would disassemble the MOVEM register list without the need 
for a table of output strings. | was surprised to see that he had a problem with it, QLToday Vol 9 Issue 1 
page 20, since | was sure that it worked for all cases. However it turned out that the ‘one small 
problem’ he reported was due to a misunderstanding of the way it works. 

So here is an explanation of the MOVEM register list, my algorithm, a demonstration that it works 
(including the case quoted as a ‘problem) and a final version in assembly code. 


Background - MOVEM Register List 

The MOVEM instruction allows a collection of registers to be stored in memory or retrieved in one go, 
most commonly at the entry or exit of a subroutine. 

In assembly code the MOVEM list is given as one of the fields after the instruction field. In Motorola's 
documentation a comma is used only to separate the two fields, source and destination, and the 
register list components can take these forms (the quotes are not part of the list): ‘Am/An’ or ‘Am-An’ 
or Dm/Dn’ or ‘Dm-Dn’or any combination that can be translated by the assembler. In the register list 
the '~' indicates a range of consecutive registers, and a '/’ separates individual registers or ranges, eg: 
MOVEM.L DO-D4/A6/A2-A4/D6,—(A7) 


would store registers DO,D1.D2,03,D4,D6,A2,A3,A4,A6 on the stack and 
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MOVEM.L (A7)+,A2-A4/D6/D0-D3/D4/A6 
or 
MOVEM.L (A7)+,D0/D1/D2/D3/D4/D6/A2/A3/A4/A6 


are two of the possible forms to restore them. As this shows there is a huge set of equivalent instruc- 
tions that would do the same thing in most cases. For a disassembler we need to choose a standard 
form, more about that later on. 


First a word about the binary register list. Norman pointed out (Vol 8 Issue 5 p22) that one case needs 
the bits in reverse order to the others, but this is a consequence of the way the processor deals with 
the list. 


For subroutines, saving and restoring registers uses Pre-decrement -(A7) and Post-increment (A7}+ 
addressing modes with the normal stack pointer, as in the examples above. The registers can also be 
saved on a user-defined stack with a different address register, and they can be stored in memory 
other than on a stack, using a number of addressing modes. In all of these modes, including stacks, 
the registers are stored in memory so that the result ALWAYS has DO at the lowest address through to 
D7, then AO to A7 at the highest address. If, as is common, only a selection of registers is given, then 
the sequence is preserved, but only the specified registers are actually copied to memory ~ there is 
no ‘empty space’ left for those that are not copied. 


In machine code the 16 bit register list has one bit assigned to each register, and the list is always 
traversed FROM RIGHT TO LEFT - bit 0 to bit 15. If a bit is set then the register is copied, if the bit is 
zero then it isn't copied. 


So for all the modes which store at, or retrieve from, progressively higher addresses the list has to 
take the form: 


bitnes. 151419 12 1 0) 8 OS A? BO 
cr cr ——+ 
| A'7 A6 A5 A&A AZ AZ A1 AO D7 D6 D5 D4 D3 D2 D1 Do | 


~ with DO stored first at the lowest address. 


The Pre-decrement mode is unique in that the start address given is ‘one above’ the storage area, as 
always for a stack, and for each register in succession the address is reduced by the data length 
before the register content is stored, so that the stack pointer at the end has the address of the 
lowest byte used. To give the memory sequence described earlier, the list word has to be: 


bit no. se fe ©. ll 0 fat Pa ee 9 OR” I a © a a ea 9 
4+—-——— et 


| DO D1 D2 D3 D4 D5 D6 D7 AO Al A2 AZ A4 AS A6 AT | 


St 


So that A7, if specified, is stored first, at the highest address. This is the odd one out, with the bits 
‘pack to front’ 


Standard Form 

My algorithm disassembles the list to a standard form, in the sequence DO to D7 followed by AO to 
A7, and using '/' and ‘-' to give as compact a list as possible, so that ranges are used if three or more 
adjacent bits are set for either Data or Address registers. So the first example given above, for 
DO/D1/D2/D3/D4/D6/A2/A3/A4/A6, would be disassembled as: 

MOVEM.L DO—D4/D6/A2-A4/A6,—(A7) 


In the case of just two adjacent registers, e.g. D2 and D3, then to me D2/D3 looks more apt than D2-D3. 
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Disassembling the Register List 
Two things need attention before starting to analyse the register list. 


First, it Seems on the face of it that a blank register list is permissible, although it would not be of much 
use, and | don't see how it can be produced by a MOVEM line in assembler code. There's no help on 
this in any of the documentation | have, and | don't have access to 68000 hardware to try it out, but if 
it could occur in a legitimate machine code program then | would test for this as a special case and 
disassemble it with an explanation, thus 

<address> $4890 DC.W $4890 ; This is the code for MOVE.W to (AO) .. 
<address> $0000 DC.W $0000 ; .. with an empty register list. 


Second, it would be most convenient to reverse the list for -(An) so that the same algorithm could be 
used for all cases, and I'll assume this is done. 

The register number for Data registers is the plain bit number position in the List, but in order to use 
the same algorithm for Address registers we note that the Address register number is the bit number 
with 8 subtracted. As bit 3 is already clear for Data registers then clearing it anyway is ok. for both 
types. Add $30 to convert to ASCII. 


Algorithm 

A problem like this one can often be solved by an approach based on a Finite State Automaton - a 
rather grand term for a fairly simple idea. My adaptation of it here is a loop that is passed through 
once for each bit, in a ‘State’ that depends on the previous history, to decide if each set bit found is a 
single register or part of a range. 

Note that in the output list | put a '/’ separator on the end ready for the next item, so there's an extra 
‘7 at the end to be removed as the last action. 


We start in StateO and stay in it, with no output of course, until a set bit is met, then that register goes 
on the output, say D2/ and we change to Statel for the next bit. If this bit is not set then we revert to 
Stateo, if it is set then we put its register on the output, D2/D3/ and go to State2. We now have two 
adjacent registers, but need a third to start a range. If the next bit is not set, back to StateO again. 


If it is set then we have a range of three successive registers. The action now is to alter the register 
number at the end of the list and the previous separator: D2/D3/ becomes D2-D4/ We could now 
stay in State2, when a Set bit next time would change the list to D2-D5/ An unset bit would go back 
to StateO so that a later set bit would start again as a single register e.g. D2-D4/D6/ 


However in State2 the separator keeps on being ‘changed’ to -' even though it already is ‘-’, so | 
include a State3 that simply changes the register number. 


A range cannot start with a Data register and end with an Address register, So we must start again in 
StateO after 8 bits. 


For completeness here is the State Transition Table for this algorithm: 


State IN State OUT for 
bit value —-> 0 1 
0 0 1 
1 0 2 
2 0 3 
3 0 3 
Traces 


Example List is %0100 1111 1110 1100 (spaces just to make it more readable) which corresponds (right 
to left) to the String 'D2/D3/D5-D7/A0-A3A6° 
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TF Services 


A UK 4-way trailing socket designed to switch off 
computer peripherals automatically when the 
computer is switched off, or (in the case of an ATX 
computer} when it auto-powers down. Compswitch 
has one control socket, and three switched sockets. 
Can be used with lights/hifi/monitors—ie a QL 
monitor can be used as a switch control. 


Cost £24 


a SUperHermes 
A major hardware upgrade for the QL 
All Hermes features (working serl/2 at 19200, 
independent baud  rates/de-bounced keyboard/ 
keyclick) IBM AT kbd I/F // HIGH SPEED R&232 at 
§7600// serial mouse port and 2 other RS232 inputs// 
3 1/0 lines // EEPROM 
Cost (including manual/software) 
IBM AT UK layout Keyboard 
Serial mouse 
Capslock/scrollock LED .... 
Keyboard or mouse lead £3 (£3.50/£3.50) 
High speed serial (ser3) lead £4 (£4.50/£4.50) 


Hermes available for £25 (£26/£27) Working ser1/2 and 
independent input, debounced keyboard. 


SuperHermes LITE: All Hermes features (see 
above) + an IBM AT keyboard interface only. 
Cost (incl keyboard lead) £53 (£54/£55) 


OL REPAIRS (UK only) 


Fixed price for unmodified QLs, excl microdrives. QLs 
tested with Thorn-EMI rig and ROM software. 


£27 incl 6 month guarantee 


£90 (£92/£93) 
£11 (£13/£15) 
£B (£8.50/£9) 
£1 (£1.50/£1.50) 


Minerva 
ae Guinea ea 
OTHER FEATURES COMMON TO ALL VERSIONS 


DEBUGGED operating system/ autoboot on reset of power 
failure‘ Multiple Basic/ faster scheduler- graphics (within 
10% of lighting) - string handling/ WHEN ERROR/ 2nd 
screen/ TRACE/ non-English keyboard drivers/ “wann” 
fast reset. V1.97 with split OUTPUT baud rates (+ Hermes) 
& built in Multibasic. 
First upgrade free. Otherwise send £3 (+£5 for manual if requd). 
Send disk plus SAE or two IRCs 


MKL...£40 (£41/£43) MKIL...£65 (£66/£67) 


MINERVA RTC (MKID + battery for 256 bytes ram. 
CRASHPROOF clock & YC bus for interfacing. Can 
asutoboot from battery backed ram. Quick start-up. 


—_— SL RomDisq__ 
Up to 8 mbyte of flash memory for the QL 

A small plug in cireuit for the QL’s ROM port (or 
Aurora) giving 2, 4 or 8 mbytes of permanent storage - 
it can be thought of as a portable hard disk on a card, 
and reads at some 2 mbytes per second. 

Think of it - you could fully boot an expanded QL, 
including all drivers/SMSQ etc off RomDisq at hard 
disk speed with only a memory expansion needed. 


2 mbytes RomDisq. £39 (£40/£41) 

4mbytes RomDisq. £65(£66/£67) 

8 mbytes RomDisq. £98 (£99/£1 00) 
Aurora adaptor. £3 (£3.50/£4) 


ANRC ch DY. "15 | EEE 


A low profile powered backplane with ROM port j 


A three expansion backplane with ROM port included for 
RomDisq etc. Aurora can be fitted in notebook case and 
powered off single 5V rai] - contact QBranch for details. Two 
beards (eg Aurora and Gold Card/Super Gold Card/Goldfire 
fixed to base. Suitable for Aurora (ROM accessible from 
outside) & QL motherboard in tower case. Specify ROM 
facing IN towards boards, ar OUT towards back of case. 


£34 (£35/£36) 


mi 4 


Connects to Minerva MKII and any Philips PC bus 
Power Driver Interface 16 V/O lines with 12 of these usedto 
control § current carrying outputs (source and sink capable) 

2. amp (for 8 relays, small motors) .... £40 (£43/£44) 
4 amp total (for motors etc) £45 (£48/£50) 
Relays (8 3a 12v 2-way mains relays (needs 24 power 

driver) £25 (£28/£29) 
Parallel Interface Gives 16 input/output lines. Can be 
used wherever logic signals are required £25 (£27/£28) 
Analogue Interface Gives eight 8 bit analogue to digital 
inputs (ADC) and two & bit digital to analogue outputs 
@AC). Used for temp measurements, sound sampling (to 

5 KHz), x/y plotting £30 (£31/£32) 
Temp probe (-40°C to +125°C).... £10 (£10.50/£11) 
Connector for four temp probes... £10 (£10.50/£11) 


Data sheets £2 (£2.50/£3) 
£2 (£2.50/£3) 


no Jonger on sale 
£3 (£3.50/5A 
. £3 (£3.50/54 


Circuit diagrams..... 
. £8 (£8.50/£9 


68008 cpu or 8049 IPC.. 

8301/8302 or IM ROM or serial lea -£10 (£10.50/£11 

Power supply (sea mail overseas). £12 (£19/£23 
Other components (sockets etc) also available 


Prices include postage and packing (Airmail where applicable) Prices are: UK (Eurape ‘Rest ofworld). Payment by cheque drawn on bank with UK 


address,/postal order or CASH! I can no longer accept card payments as UK only does PDO transaction. SAE or IRC for full list and details 


22 Feb O83 


29 Longfield Road, TRING, Herts, HP23:4DG | 


Tel: +44 (0) 1442-828254 


Fax/BBS: +44 (0) 1442-828255 


tony@firshman.co.uk — http://www.firshman.co.uk 
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Bit Value Reg State in String State Out 
0 0 0 ne 0 
1 0 0 m 0 
2 1 D2 0 'D2/' ui 
3 1 D3 a 'D2/D3/' 2 
4 0 2 'D2/D3/' 0 
5 1 Dd 0 'D2/D3/D5/' 1 
6 d D6 1 'D2/D3/D5/D6/' 2 

7 1 D7 2 'D2/D3/D5—-D7/' 3- 0 

Note the State change to zero at the end of the Data registers 
8 1 AO 0 'D2/D3/D5-D7/A0/' 1 
9 1 Al 1 'D2/D3/D5-D7/A0/A1/' 2 
10 1 A2 2 'D2/D3/D5—D7/A0-A2/' 3 
11 1 A3 3 'D2/D3/D5-D7/A0-A3/' 3 
12 0 3 'D2/D3/D5—D7/A0-A3/' 0 
13 0 0 'D2/D3/D5-D7/A0-A3/' 0 
14 1 A6 0 'D2/D3/D5-D7/A0-A3/A6/' 1 
15 0 1 'D2/D3/D5—D7/A0—A3/A6/! 0 


Now, at the end of the List (updated Bit number is 16), drop the last separator and exit the Loop to give 
the final String: 'D2/D3/D5-D7/A0-A3/A6' 


Finally a trace to show that it gives the correct result for the ‘problem’ quoted by Norman: For 
D2/D3/D4/D5 the binary List is: %0000 0000 0011 1100 


Bit Value Reg State in String State Out 
0 0 0 0 

1 0 0 1s 

2 1 D2 0 'D2/' 1 

3 1 D3 1 'D2/D3/' 2 

4 1 DA 2 'D2-D4/' 3 

5 1 D5 3 'D2-D5/' 3 

6 0 3 "D2-D5/' 0) 

7 0 'D2-D5/' 0-— 0 


0 
No need to go through the address registers, the result is ‘D2-D5’. 


The Program 
| found no need to alter the algorithm in any way to get this assembly code version to work, so here it 
iS. 


With QPC | use the GST Qmac assembler, so there is a header in the code here to suit. The BIN from 
assembling this can be set up, CALLed, and traced with Qmon as described in George Gwill's excel- 
lent and useful article ‘Debugging with Qmon’ in QLToday Vol 8 Issue 4 page 11, and of course | have 
done that. 


For testing | have put a register list in D2, and formed the result as a QDOS string: length in a word, fol- 
lowed by the ASCIl bytes of the string. When in Qmon D2 can be changed to test other register lists, 
and of course | have done this too. 


The heart of the program is the loop which is traversed once for each bit in the list. The States of the 
algorithm are realised by putting in A3 the address of the outgoing State from each pass through the 
loop. The State for the next pass is then entered by jumping to the address in A3. 


Since whenever an unset bit is found we go to StateO, we can put a check for this at the start of the 
loop, going to the code for the other States only if a set bit is found. 
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SECTION CODE 3 Required by Qmac .. 


DATA 128 3 -- to get executable code. 
bra.s START 3; Skip data area .. 

3 +. Set up here for ease in tracing, for me anyway! 

STRLEN ds.w 1 3 String length .. 


STRING ds.b 48 j -- and contents 


3 

START 

; Test list: $4FEC = %0100 1111 1110 1100 = D2/D3/D5~D7/A0-A3/A6 
(bits read right to left) 


° 
> 


MOVEQ #0,d2 ; Clear top word for tidiness 
move.w  #$AFEC,d2 3; List 

lea STRLEN, al 3 Address of Length.. 

lea STRING, a2 3 .. and of String 


End of test set up 


Start up conditions required 

Al Address of output string length word 
A2 Next free in output string 

D2.W List word 


Local usage 

A3 State address 

DO.W Bit number in input list 
D1.B Register number in ASCII 
D7.B Register letter 


Noe Sea Noe Noe Wee Wee Wee We Nee tee Wee we We tee 


Initialisation 

clr.w do 3; Bit number 
move.b #'D',a7 3 Reg letter for bits 0-7 
elr.w (al) 3 String length 
lea STATEO, a3 3 Start in State zero 

3 

SLOOP 

j Check current bit 
btst dO, d2 3 Set Zf for current bit 


bne.s BITSET 


3 
3; Here bit is zero, stay in or go into StateO0, no other action. 
lea STATEO, a3 
bra.s LOOPENDING 
, 
3 Here bit is set, action depends on current state 
BITSET 
; First turn register number into ASCII character .. 
3 -.- for bits 0-7 this is the .. 
move.b d0,d1 3 -.- bit number .. 
3 -. for bits 8 to 15, clear bit 3 (subtract 8) .. 
3 ». does not affect D regs so do it anyway .. 


andi.b #$07,d1 3 +. extract reg number .. 
ori.b #'0', di 3 «. and convert to ASCII. 
; 
3 go to the code for the current State 
jmp (a3) 
3 
STATEO lea STATE1, a3 
bra.s ADDREG 3; Add this reg to output 
3 
STATEL lea STATE2, a3 } Fall through, to .. 


; - add second reg to output 

3 

ADDREG 

3 Add this reg to the output at the end of the string .. 

3 +. 3 characters e.g. 'DO/' 

; (post increment mode, i.e. (a2)+, automatically updates the pointer) 
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move.b 4d7,(a2)+ ; Register letter .. 


move.b di,(a2)+ 3 .. and number .. 
move.b #'/',(a2)+ j .. and separator. 
addq.w  #3,(a1) ; Update string length 


bra.s LOOPENDING 


3 
STATE2 lea STATE3, a3 3 Alter this and last two regs .. 
- to make a range at the end of the string. 
String is e.g. 
-4 -3 -2 -1 (A2) 
+--+} 


Cpl Pel eho te 


Nee We ee We We We we 


move.b #'~—',-4(a2) } .. change separator 
; becomes: tt tt 
ef | Ds] 2 pol 3 key 


3 
4 
3 
; ptt tt 
’ 

3; Fall through to change register number .. 


3 

STATE3 

3 No need to change State here —- stay in State3 

3; Simply alter register number at the end of the string .. 


3 »- as the previous separator is already a '-'! 
3 
move.b d1,-2(a2) 3 change register number. 
a 
; -4 -3 -2 -1 (A2) 
3; to get, e.g. Seat SNE SENN SUE RRR REL Seen ere 
; ef ITD L242 1D) a) x4 
3 pp pt et 
3 String length and Pointer A2 unaltered while still in a range. 
3 
; Fall through to... 
3 
LOOPENDING 
addq.w #1,d0 3; Next bit number 
empi.w  #8,d0 ; End of D regs? 


bne.s NOTBIT8 
3 
3 Here we have reached the end of the Data registers .. 


move.b  #'A',d7 3; Reg letter for bits 8-15 
lea STATEO, a3 3 Start A regs in State0 
bra.s SLOOP 

a 

NOTBIT8 

3 Ok, so it's not bit 8 — check for all done .. 
empi.w #16,d0 3 -. end of reg list? .. 
bne.s SLOOP 3 -- if not, carry on 


° 
3 


3 Here we have reached the end of the loop .. 


3 .. final task, remove the last 'separator' 
subq.w #1, (a1) ; .» reduce string length by one .. 
subq.1 #1,a2 j +. and move the pointer back. 
3 
moveq #0,d0 3; Exit with no error 
rts 
3 
END ; Avoid Qmac warning! 


George Gwilt has published a nice program to do this, also in QLTIoday Vol 9 Issue 1, but | think mine is 
sufficiently different from his to ask for it to be published as well. 
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New Websites! 


We are proud to present our new websites! 
Starting September, we have separated our business in three 
separate websites. 


You can find them at: 
<http://www.rwapadventures.com/> (Adventure Games) 


<http.//www.rnwapservices.co.uk/> (General Site) and 
<Http://www.rwapsoftware.co.uk/> (Software) 


Our old address: <http://hometown.aol.co.uk/RWAPSoftware/> 
is ofcourse still functioning but will be deprecated in the future. 


NOW WiiH DIGHAL 
SOUND ON @PGAl 


The wait is now over! Q-Word version 1 is finally available! 


Platforms: 
QPC/QXL, Q40/Q60, Aurora (with SGC) 


Prices: 


All versions without P-Word £20.00p 
All versions with P-Word £30.00p 


Notes: 

Q-Word DOES NOT require SMSQ/E with GD2 support-OR- SMSQ/E atall on 
the Aurora or Qx0 machines. It works on the highest colour depth everywhere 
regardless of Operating System. 

The Aurora version is available on either HD or ED disk. For the latter add 
£1.00 to the price. ED version is uncompressed and can be run directly from 
the floppy. All other Floppy versions are compressed. QPC/QXL version 
comes on CD. Non CD versions DO NOW support digital sound on QPC2 


Quantum Leap €@ Drives 


After many years of unavailability, here they are again! These are 
high quality Mitsubishi constructed/IBM badged drives with full 
warranty. 

Unlike previously sold ED drives, these do not require 
FLP_JIGGLE and have no problems formatting 720K disks. 
However for the latter a switch is included with the cable. 


ED Bare unit (no cable) £ 29.99p 
ED Boxed unit (complete with cable/ PSU) £ 98.99p 
Single unit Cable (with switch) £ 4.99p 
Dual unit Cable (with two switches) £ 5.99p 
{More options available, contact us for details. Also available mass quantities 
of ED and DD disks!) 


aaa for Windows 
COMPUTER SYSTEMS 


For QLers that run Windows or with incompatible hardware for 
Talent Games, we now have re-released these adventures so that 
they can run on your Windows-equipped PC. No Emulator, 
floppies, microdrive backups etc. required, just a one-click install! 
Ofcourse the full QL line is still available! (See side column) 


Talent Games for Windows ea. £ 10.00p 
(Each Game includes a runtime installation of QLA¥-2 by Jimmy Montesinos) 


(GUAP 


Utilities 


Sidewriter v1.08 £10.00p 
Landscape Printing (EPSON printers) 

ImageD v1.03 £10.00p 
3D object generator 

Q-Help v1.06 £10.00p 
Superbasic On-Screen help system 

Q-Index v1.05 £ 5§.00p 
Keyword-to-topic finder 

ProForma ESC/P2 Drivers v1.04 for ProWeSs £ 8.00p 
Printer Driver 


Applications 


Flashback SE v2.03 (upgrade only) £ 5.00p 
Database 
QL Cash Trader v3.7 £ 5.00p 
Accounting/Finance 
QL Payroll v3.5 £ 5.00p 
Accounting/Finance 
QL Genealogist v3.26 £ 20.00p 
Genealogy 
Genealogy for Windows £ 50.00p 
QL Genealogist to Windows version upgrade 
QL Cosmos v2.04 
Planetarium 
Q-Route v2.00 
Route Finding 
Upgrade from v1.xx 
Britain map vi.i1 
BIG Britain map (needs 2Mb) v2.03 
Various Britain Area maps (ask for details) 
Ireland map v1.00 
Belgium map v1.01 
Catalonia map v1.03 
P-Word UK English Dictionary (500.000 words!) 
Dictionary 


Leisure 


Return to Eden v3.08 £10.00p 
Adventure 
Nemesis Mkii v2.03 £ 8.00p 
Adventure 
The Prawn v2.01 £ 8.00p 
Adventure 
Horrorday v3.1 £ 8.00p 
Adventure 
West v2.00 £ 6.00p 
Adventure 
The Lost Kingdom of Zkul v2.01 £ §.00p 
Adventure 

Ait 6 games above £ 25.00p 


D-Day MkIi v3.04 £10.00p 
Strategy/War Simulation 
Grey Wolf v1.08 £ 8.00p 
Graphical Submarine Simulation 
War in the East MkIl v1.24 (upgrade only) £ 5.00p 
Strategy/War Simulation 
Open Golf v5.20 £ 8.00p 
Sports Simulation 
QuizMaster II v2.07 5.00p 
Quiz 
Stone Raider Ii v2.00 5,00p 
Arcade Game 
Hoverzone v1.2 §.00p 
Arcade Game 
Deathstrike v1.5 £ 6.00p 
Arcade Game 
Flightdeck v1.0 £10.00p 
Flight Simulation 

Ail 6 games above {Open Golf, QuizMaster il,Stone 

Raider ll, Hoverzone, Deathstrike and Flightdeck) £28.00p 


Notes on Software requirements 
The following programs have a minimum SGC card requirement: P-Word, 
Qword, Big Britain MAP for Q-Route 


36 Chantry Croft, Kinsley, Pontefract, West Yorkshire, WF9 5JH. United Kingdom Tel: + 44 1977 610509 (From the UK dial: 01977 610600) 


Website: http://www.rwapservices.co.uk 


(For PayPal please add 4% to the total price. Cheques in £ sterling made payabie to R. Mellor) 
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Julian & Gregorian Calendar 


Stephen Poole 


100 


110 REMark PERPETUAL CALENDAR (Julien & Gregorien). vi9mai92, by S.Poole 
120 REMark Sosigene-Moret tabulation method. (01 01 0001 to 31 12 2499). 


130 CLEAR: INIT_: STOP 

140 : 

150 DEFine PROCedure INIT_ 

160 LOCal _1$,_2$,_3$,_4$, 5$, 6$,_7$: init 

170 END DEFine 

180: 

190 DEFine PROCedure init 

200 LOCal Daychr$,e$,wd$,ym$, unit$, ten$ 

210 OPEN#1,con_16: WINDOW 512,256,0,0: CSIZE 1,0: PAPER 0: OVER 0 

220 _1$='1234567': _2$='2345671': _3$='3456712': Daychr$='mTwtFsS'! 

230 _4$='4567123': _5$='5671234': _6$='6712345': _7$='7123456': 
e$='22222222! 

240 wd$='MonTueWedThuFriSatSun': 
ym$='JanFebMarAprMayJunJulAugSep0ctNovDec! 

250 wunit$='0000000001111111111222222222233': 
ten$='1234567890123456789012345678901' 

260 main_ 

270 END DEFine 

280 : 

290 DEFine PROCedure main_ 

300 LOCal r,q$,2$,crtmth, daymth, wkdynbr,lpyr,qq$: main 

310 END DEFine 

320 : 

330 DEFine PROCedure main 

340 LOCal q_$,Jani,flsh,roff,coff,ps 

350 REPeat r 

360 CLS: AT 16,8: INK 7: INPUT!!'INPUT date as 8 chars, e.g: 

25041948 '!q$, 

370 IF LEN(q$)<>8: NEXT r 

380 z$=weekday$(q$): AT 16,8: CLS 3: AT 16,48: PRINT 2$: INK 2 

390 IF z$=e$: BEEP 12345,67: ky$=INKEY$(#1,50): NEXT r 

400  ertmth=q$(3 TO 4): daymth=q$(1 TO 2): wkdynbr=dayno: lpyr=ly 

410 — qq$=q$: qq$(1 TO 4)='0101': q_$-weekday$(qq$) 

420  Jani-dayno: flsh=10: roff=2: coff=4: ps=25 

430 CALENdraw Jani, lpyr,roff,coff,ym$,Daychr$, unit$, ten$ 

440 Curson daymth, coff,flsh, wkdynbr, ym$, umit$, ten$, Daychr$ 

450 AT 16,0: PRINT' Hit ESCape to quit or any other key. ' 

460 IF CODE( INKEY$(#1,-1) )=27: EXIT r 

470 END REPeat r 

480 END DEFine 

490 : 

500 DEFine FuNction weekday$(n) 

510 LOCal i$,i: RETurn WEEKDAY_$ 

520 END DEFine 

530: 

540 DEFine FuNction WEEKDAY _$ 

550 LOCal 1,f,d,m,c,y,lp: 1=LEN(n): IF 1<8: RETurn e$ 

560 FOR f=1 TO 1: IF n(f)«'0' OR n(f)>'9': RETurn e$ 

570 d=n(1 TO 2): men(3 TO 4): c=n(5 TO 6): y=n(7 TO 8) 

580: 

590 IF dc OR do31 OR mi OR mi2 OR y<O OR yo 99: RETurn e$ 

600 IF d=31: SELect ON m=4,6,9,11: RETurn e$ 

610 1p=((y+c=0) OR (y MOD 4) OR (y=0 AND 14 AND ¢ MOD 4))=0: ly=lp 

620 IF m=2: IF lp: IF &29: RETurn e$ : END IF : ELSE IF d>28: 
RETurn e$ 

630 IF c=15 AND y=82 AND m=10: IF d@4 AND dc 15: RETurn e$ 

640 IF c=15 AND y>=82 AND m=10 AND 414 : c=-c 

650 : 

660 SELect ON c 

670 =5,12,16,20,24: i$=_1$: =4,11,19,23,-15: i$=_2$ 

680 =3,10: ig$=_3$: =2,9,18,22 : i$=_4$ 
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QL Today has already printed 
several programs for calcu- 
lating the Gregorian Calendar, 
which succeeded the Julian 
calendar. 


The Romans used their calen- 
dar mainly to calculate when 
taxes and interest on loans 
should be repaid. 


The Julian Calendar was_ in- 
vented for Jules Caesar by 
Sosigenes in 46.A.D, to get rid 
of all the accumulated errors in 
the previous one, as the 
orbital period of the earth 
does not correspond exactly 
to any actual calendar But 
again, by the middle ages, the 
calendar was out of synchro- 
nisation and Pope Gregory Xiil 
adopted the system invented 


by Moret, which became 
known as the Gregorian 
system. 


But to recalibrate the system, 
ten days had to be ‘written 
off, so in France days from 
5th.Oct1582 to 14thOct1582 
did not actually occur. In other 
countries, the Gregorian Ca- 
lendar was adopted at diffe- 
rent dates, so you will have to 
adapt lines 630 and 640 to 
suit your country. To make 
things clear c=century, y=year, 
m=month and d=day. (Look up 
the word ‘Calendar’ in an En- 
cyclopeedia for your own 
country to find out which 
dates were eliminated). 


The Sosigenes-Moret method 
basically uses a series of 
look-up tables to calculate the 
day of the week, so there Is 
no maths involved. The pro- 
gram references each table, 
according to ihe previous 
result at the junction of each 
row and column, until the final 
result occurs. So it is very 
rapid and accurate from 
tjan.0001 to 31.dec.2499. 
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You must enter all dates as 8 
numeric characters, such as 
12032004. The result is printed 
as a year-calendar, so you do 
not have to keep entering 
dates if they occur in the same 
year Do not enter any dates in 
year 0000, as Caesar forgot to 
include this one, which is why 
the second Millenium began in 
2001, and why Roy Wood got 
involved in much anguish in the 
columns of this magazine! 


Unfortunately | do not have de- 
tails of when each country 
adopted the new system, so | 
shall have to leave that up to 
readers. (Sorry). 


So, if you want to know on 
what day the Battle of 
Hastings occurred, or when 
was the famous battle on St. 
Swithen’s day, then just use 
this program. 


Or if you want to know if such 
and such a year was a leap- 
year, just enter any day of that 
year and look to see if the ca- 
lendar prints out the 29th of 
february... 


Of course the Gregorian Ca- 
lendar applies mainly to Chris- 
tian countries. So if you live in 
an |slamic, Chinese or other 
community you will need to 
use an even more complicated 
method to get rapid conver- 
sions. 
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690 =1,8,15: i$=_5$: 
700 END SELect : i=7 
710 : 

720 SELect ON y 


=0,7,14,17,21: i$=_6$: 


26,13: i$=_7$ 


730 =0, 6,17,23,28,34,45,51,56,62,73,79,84,90 : isl 
740 =1, 7,12,18,29,35,40,46,57,63,68,74,85,91,96: i=2 
750 =2,13,19,24,30,41,47,52,58,69,75,80,86,97 : is3 
760 =3, 8,14, 25,31, 36,42,53,59,64,70,81,87,92,98: i=4 
770 =9,15,20,26,37,43,48, 54,65, 71, 76,82,93,99 : i=5 
780 =4,10,21, 27,32, 38,49,55,60,66,77,83,88,94 : i=6 


790 END SELect : i=i$(i): s=m 
800 


820 SELect ON s 
830 =1,10: i$=_1$: =5 


840 =6 =: i$=_5$: =9,12: i$=_6$: 
850 END SELect : i=i$(i) 
860 : 


870 SELect ON d 


: i$=_2$: 


810 IF lp:IF m='1': s=4: END IF : IF m=2: s=8 


=8: i$=_3$ =2,3,11: ig=_4$ 


=4,7: i$s_7$ 


880 = =2,9, 16, 23,30:1$=_1$: =3,10,17,24,31:1$=_2$: =4,11,18,25:i$=_3$ 


890 = =5, 12, 19,26 
900 §==1,8,15,22,29:1$=_7$ 

910 END SELect : i=i$(i): dayno=i 
920 : 


:i$=_4$: =6,13,20,27 


:ig=_5$: =7,14,21,28:i$=_6$ 


930 i=ik3-2: dy$-wa$(i 10 142): i=m¥3-2 


940 RETurn dy$&! '&d&' '&ym$(i TO i+2)&' '&n(5 TO 6)&n(7 TO 8) 


950 END DEFine 
960 : 


970 DEFine PROCedure CALENdraw(_1,_2,_3,_4,_5,_6,_7,_8) 


980 LOCal m$,1$,u$,t$: CALENdraw_ 
990 END DEFine 

1000 : 

1010 DEFine PROCedure CALENdraw__ 
1020 LOCal n,1,r,c,f,m,d 

1030 mns_1: 1=_2: r=_3: e=_4: f=1 
1040 m$=_5: 1$=_6: u$=_7: t$=_8 


1050 FOR m=1+r TO 12+r: AT m,1: PRINT m$(f TO f+2): f=f+3 
1060 FOR f=1 TO 31: AT r-1,f+c: PRINT u$(f): AT r,f+ce: PRINT t$(f) 


1070 INK 4—(n>5) 
1080 FOR m=1 TO 12 


n=n+1 


1090 d=31: IF m=2: d=28+1 

1100 SELect m=4,6,9,11: d=30 

1110 FOR f=i+ce TO d+e 

1120 AT m+r,f: PRINT 1$(n): 

1130 IF n=8: n=1: END IF : INK 4-(n5) 
1140 END FOR f 


1150 END FOR m 
1160 END DEFine 
1170 : 


1180 DEFine PROCedure Curson(_3,_4,_5,_6,_7,_8,_9,_A$) 
1190 LOCal w$,a$,b$,c$: _l=crtmth: _2=roff: CURSON_ 


1200 END DEFine 

1210 : 

1220 DEFine PROCedure CURSON_ 
1230 LOCal w,r,l,c,y,x,j,f 


1240 wel: r=_2: 1=_3: c=_4: y=wtr: x=lte: j=w*3-2 
1250 w$=_7(j TO j+2): a$=_8(1): b$=_9(1): c$=_A$(_6): OVER -1: INK 4 


1260 FOR f=1 TO _5 


1270 AT r-1,x: PRINT a$: AT r,x: PRINT b$ 
1280 AT y,1: PRINT w$: INK 2: UNDER 1: AT y,x 
1290 PRINT c$: UNDER 0: INK 4: ky$=INKEY$(#1,ps) 


1300 END FOR f: OVER 0 
1310 END DEFine 
1320 :: 
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QPCQ TIP - 
Starting Windows Files 


Dilwyn Jones 


The author of QPC has thoughtfully provided a 
BASIC extension called QPC_EXEC which allows 
you to start a Windows program or file. This 
comes in useful for people like me who mostly 
use a PC for QPC2 and every once in a while 
need to fire up a PC program, eg. to use a PC 
word processor to create a document containing 
graphics which a text-based word processor like 
Quill could not do. Windows includes a mecha- 
nism like File Info 2 which allows us to execute a 
file which is not a program. 


Such files have programs ‘associated’ with them. 
The type of file is determined by the ending of 
the filename. For example, a Windows file ending 
with DOC is normally associated with the Word 
or Wordpad programs. 


| keep a letterhead document called 
LETTERHD.DOCto save me typing my address and 
phone number etc into the PC word processor 
every time. This is saved in the 

C:\My Documents\ 


folder on my PC's hard drive. To quickly and 
conveniently start this from the QL side, all | need 
to do is define a hotkey to send a QPC_EXEC 


command to SBASIC: 


ERT HOT_CMD('d', 'QPC_EXEC "C:\My 
Documents\letterhd.doc"') 


So when! press ALT d in QPC2, it fires up Micro- 
soft Word (or Wordpad or whatever program used 
on systems where Word is not installed) which in 
turn loads the file called LETTERHD.DoC. | don't 
even have to ALT TAB to Windows, select the 
Desktop, go to the Start menu, or click on Word's 
icon to start it! It works both with QPC2 in full 
screen mode and with QPC2 in windowed mode 
on my system at any rate. 


| was quite amazed when | realised this was 
possible and just how well it worked and how 
much time and effort it saved me! Of course, it's 
not just word processor files it works with, you 
can use this with many file types which have 
associated programs. 


Launchpad users can set up a similar thing. Goto 
the Utility menu and select the QPC:Launch 
DOS/Windows File command. In the window 
which appears, select options 4, 5 or 6 at the 
bottom to set up any of the three ‘favourite’ 
filenames for this purpose. Enter the Windows 
path/filename (eg. C:\My Documents\ 
LETTERHD.DOC in my example above). After that, 
you need only click on the 4, 5, or 6 icons 
alongside to copy the filename into the selection 
box above, then click on OK to start the file! 


QPC2 PRANKS 


Dilwyn Jones 


Here are some ideas for pranks you can play on 
your QPC2- and QPAC2-using friends, e.g. as a 
birthday joke. 


1. WINDOWS RULES OK? 


The first one relies on your friend having a recent 
version of QPC2, which includes — the 
QPC_WINDOWTITLE extension. Add this line to 
his/her boot program at a suitable line number: 


1 QPC_WINDOWTITLE "WINDOWS RULES OK!" 


Just make sure you are at a safe distance away if 
your friend is not too keen on Windows! 
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The text you supply after the QPC_WINDOW- 
TITLE will be printed in the title bar above the 
QPC window if it is running in Windowed mode, 
just before the QPC2 copyright message. 


There are more serious uses of this facility. It was 
intended to give a short identifying title to each 
instance of QPC2 for people like Jochen who are 
determined to get their money's worth from 
QPC2 by running several copies of QPC2 and 
manage to get themselves confused when they 
can't remember which |s which. It could even be 
used as a simple message facility in conjunction 
with a short SBASIC program used as a reminder, 


eg. 


REMark max 45 minutes at the keyboard at 
a time 

period = 60%60 : 
of seconds 

time = DATE 


REMark 1 hour's worth 
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REPeat loop 
IF DATE >= (timet+period) THEN 
BEEP 5000,0 : REMark audible warning 
QPC_WINDOWTITLE "!TIME FOR A BREAK!" 
EXIT loop 
END IF 
END REPeat loop 


9. JOBS PRANK 


This one is a pretty evil trick to play on any 
pointer environment and QPAC2 user with 
enough memory to have several programs 
running - be prepared to risk losing a friend 
though! 


If your QPAC2-using friend likes to make full use 
of QL multi-tasking and task switching, perhaps 
like me he/she has 5 or 6 programs on the go at a 
time. Typing into a wordprocessor, Launchpad 
running in the background, database waiting to 
be updated, a game of The Wall waiting to be 
played, a Qascade menu and a couple of other 
programs running... All of a sudden, the program 
disappears into the button frame without war- 
ning... 


1 Leap @2 Drives are high quality units manufactured by 
i is {BM (these units were used on the RS6d00 


They work aes with all disk sizes (720K requires a capacity 
switch, included with the cabie} 


6 Very reliable. No FLP_JIGGLE required. 
® 100% new (no ‘remanufactured’ units Gr pulls} 


10 REPeat LOOP 


20 IF RND(1 TO 1000) = 1 THEN 
30 EXEP BUTTON_SLEEP 
40 END IF 


50 END REPeat LOOP 


Either compile this program and make it run in the 
background or (for SBASIC users) run it as an 
SBASIC job. Alter the RND range in line 20 make 
it zap the programs more or less frequently as 
required. Just sneak up to the computer and start 
this program running without your friend's know- 
ledge! 


3. CUP HOLDER 


The author of QPC2 has provided audio CD 
control facilities for you to play music CDs. Some 
SBASIC extensions are included to control start 
and stop etc. There's a CD_EJECT and 
CD_CLOSE pair of commands to open and close 
the CD-ROM drive tray respectively. This 


provides a great opportunity for a prank. Simply 
run a little timer program which randomly ejects 
and closes the CD-ROM drive tray, or simply time 
a message which invites the user to feed the PC 
for example: 


Qugntums. Leap Your North American Q60 and QL Source! 


@ Individually tested on real OL hardware. 
® 6 months unconditional warranty. 
® Available in boxed and bare units 


Contact us for detalis! - Shipping worldwide except the UK. 
For UK Customers, Ssontact RWAP Services. 


mbranes 


Quantum Leap has partnered with SINTECH in Germany to bring 


y Authorized Reseller in Americal 


you quality QL Membranes. 
Now you have no excuses for keeping your Qi in storage! 
Made of high quality material with exira long leads | 
guaranteed fo last you 2 long-fong time. 


Gb Membranéscuncncad et Boia cuilectnene sath USS 29.00 


clude Shipping & Handing. ~ 


Phoebus Dokos - Quanium Leap 2306 Byron Ct., 


Cashier's Checks, Money Orders and Person 


indiana, PA15701-2323, USA 
email: gl.css@dokas-gr.net Website: www.dokos-gr.net, Phone/SMS: +1 (724) 467 2404 
S accen’ most European carriers) 


nal Checks iUS Funds). For PayPal, 
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20d 3.5°., Cheks payable to: “Froshus Cokes H 


time = DATE 

period = 60*RND(1 TO 60) 

REPeat loop 

IF DATE >= (time+period) THEN 

CD_EJECT 
BEEP 5000, 0 
message = RND(1 TO 3) 
SELect ON message 


: REM random number of minutes up to 1 hour 


=1:PRINT #0,'Please may I have a chocolate biscuit!" 


=2:PRINT #0,'Oops, sorry.' 


=3:PRINT #0,'Time for your tea break, I will hold your cup for you." 


END SELect 
period = 60*RND(1 TO 60) 
PAUSE RND(50 TO 1000) : 
CD_CLOSE : 
END IF 
END REPeat loop 


To Eindhoven for only 8 
pounds 


Al Boehm 


RyanAir is a no-frills airline that is very inexpen- 
sive. It has flights from London (Stansted) to 
Eindhoven for 8 GBP! There are also direct 
flights from Barcelona to Eindhoven but that's all 
there is direct to Eindhoven for the summer 2004 
through 30 October season. However, there are 
about 45 cities that have RyanAir flights to 
Stansted. 


What's the catch? 

Well, Stansted Airport north of London may be a 
little hard to get to although there is a train from 
Liverpool Street Station in London. RyanAir only 
allows one checked bag of 15 kg (6 euro extra 
for each kilo over with max of 29 kg) and one 
carry on of 7 kg. 


All food and drinks from the stewardess must be 
bought. A cup of coffee cost me 2.50 Euros this 
May! 


The 8 GBP price was good if you bought your 
Eindhoven ticket 12 June. The price will go up as 
the date draws near RyanAir specifies it is not a 
connecting airline. Thus if you bought a RyanAir 
flight from Cork to Stansted then from Stansted 
to Eindhoven, you can not check your luggage 
all the way through but have to collect it and 
stand in line to put it on the next flight. And they 
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: REMark random delay before next time 
REMark random pause before closing drive 
REMark close the drive tray 


will not guarantee a flight connection. Also the 
times may not be as handy as you would like. 
RyanAir uses mostly small airports somewhat 
away from the major cities which can make them 
hard to get to. But | will take a small airport with 
8 gates over a 61 gate airport Zoo anytime. 


Other than these limitations, | can recommend it 
as a pretty good airline. Schedules and tickets 
can be obtained on: 
http://www. ryanair.ie/ 


There are two scheduled flights on Friday 15 Oct 
2004 to leave Stansted 0645 and arrive at 
Eindhoven 0845 and the second to leave 
Stansted 1830 to arrive at Eindhoven 2030. 
Coming back on Sunday 17 Oct there is only one 
flight that leaves Eindhoven at 2055 and arrives 
Stansted 2055 (one hour flight and one hour time 
zone change) 


This it what their site says about the Eindhoven 
Airport: Eindhoven Airport is small, modern and 
efficient, and has cash machines, a restaurant, car 
hire and taxis. 


Bus: The Hermes bus company operates a 
twice-hourly service between the airport, the 
Eindhoven city centre/Eindhoven Central Station. 
For the schedule, please call 0031-(0)900-9292. 
Single tickets can be bought from the driver, and 
the ‘strip card’ system in use throughout the 
Netherlands is valid on this service. 


Taxi: Taxis are available from outside the airport. 
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The Next Issue 


Issue 3 of Vol. 9 will be published a bit later than usual - at QL 
2004 in Eindhoven! 


We feel this special event justifies the delay, and we also hope to 


have another "goodie" included with this issue. 


lf you cannot make it to the show (a big miss, it already seems) then please con't 
_ be suprised that the issue will arrive later. 


— SAW PeINTs @FrFeuTs AND SNIPPETS 


One of the more popular pro- 
grams on British TV of late has 
been something called ‘The 
Life Laundry’. It is, of course, 
yet another of those examples 
of low cost low brow drivel 
that TV companies delight in 
and call ‘Reality TV’. If this is 
the reality of those commissio- 
ning the programs | can only 
assume that they lead very 
sad lives. The premise of the 
program is that two ‘advisors’ 
look at the subject's life and 
then tell them what they have 
to get rid of to make them- 
selves happier and more ful- 
filled individuals. | suspect the 
answer to that would be to 
have a TV crew and the two 
drippy, opinionated presenters 
put their dreary existance on 
TV but that is another story. | 
mention it here because it has 
a reflection, albeit a circuitous 
one, on my recent experien- 
ces with QDT. 

QDT is rapidly approaching re- 
lease and |S now in a pretty 
usable state. | am, in fact, using 
it on both of my machines and 
it works well. In the course of 
an installation of QDT the 
user's hard drive is scanned 
for programs and they are sor- 
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ted into folders based on a set 
of rules written into the installer. 
When | had completed this on 
my Laptop at the US show | 
found that the folder marked 
‘Unknown’ was quite large and 
part of my function as one of 
the beta testers was to try to 
identify what these ‘unknowns’ 
were and help tighten the rules 
to make the final installation 
smoother All well and good 
except that | had no idea what 
some of the things | had on the 
drive were. 


Past Gems and Clinker 


As | trawled through all of 
these programs so | could give 
Jim Hunkins a list of the oddi- 
ties it had thrown up, | realised 
that there were, in the midst of 
all the clutter one or two little 
programs | had _ forgotten 
about. Most of my QL compu- 
ting is via QD, QSpread, LINE- 
Design and DATAdesign with 
Text 87 making a reappea- 
rance in its new High colour 
friendly mode. | used fo use a 
great many more programs but 
| had largely forgotten about 
them until this little excursion 
down memory lane. 


One of the programs that 
came to the fore was called 
‘Smash’ this is a wonderful little 
utility that is of great use to 
people who run their systems 
on limited memory or want to 
run from small media like ED 
disks or just a ROMDisq. It will 
take an executable program 
and squash it down so it occu- 
pies less space but will still run 
as before. Of course you can- 
not configure the program 
once it has been ‘smashed’ be- 
cause the config block is no 
longer accessible to the confi- 
guration programs. This means 
that you have to do all of the 
configuration before running 
Smash but once it is all happy 
the ‘smashed’ code will take 
up less space on the media 
and run faster too. 

| also re-discovered FComp. 
This is a very useful utility 
which will compare two files 
and show the differences for 
you. It seems a little more ver- 
satile than Compare which also 
seems to fall over on my cur- 
rent system. Another useful 
little program is ‘Thinfo’ Which 
will show the THINGs installed 
on your system and give you 
information about them. Good 
both for troubleshooting and 
for general information. 
Another great  re-discovery 
was Dilwyns PROCMAN, a pro- 
gram | had forgotten long ago. 
Most of this can be done from 
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QD these days but it was a 
neat way to get a set of rou 
tines from a BASIC program 
and it would have come in han- 
dy when | had to re-write my 
invoicing program and did most 
of the procedure extraction by 
hand. lf only | had remembered 
it was there. 

| also took a look at SCRview. 
This was a QL ‘_pic’ file 
viewing program from 1993. 
Nice interface and very neat 
pointer It was written by ‘The 
Beginners Club’ of Italy Maybe 
you guys could do an update 
that would use the high colour 
screens. That would be useful 
In fact a high colour screen 
grabbing utility would be a nice 
addition to the toolbox as well 
~ while you're at It. 

In amongst all of this there was 
a lot of ‘clinker. My original 
hard drive was in a Qubide/ 
Aurora/Super Gold Card sys- 
tem and arrived on my first 
QPC2 system by doing a back- 
up and restore, first with the 
Norback program and_ later 
with The Knight Safe. This, of 
course, meant that it had all of 
the Qubide programs on it as 
well as the SuperHermes and 
ROMDisq ones. | also realised 
that | had managed to get 
things like multiple versions of 
Menuconfig, Menu Rext and 
other stuff like this scattered 
over the drive. 

Going through all of this has 
got me to tidy my drive up a 
bit at the very least and has 
led me to re-examine older 
programs that | will probably 
find quite useful in the future. 


You can if Icon 


One other thing that QDT has 
led me into doing over the last 
couple of months is spending 
ages playing around with the 
icon drawing tool | have al 
ways been a bit of a sucker 
for computer graphics and one 
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of the first programs | bought 
for my QL was QL Paint. it was 
my involvement with LINE- 
Design that led me into re- 
writing the manual for PROGS 
and | have always found the 
production of these things to 
be great fun. QDT comes with 
a standard set of icons for its 
components and some of the 
more recognised programs. 
The user however, has control 
over the icons and it is 
possible to use any icon file of 
a set size. It also comes with 
an icon editing and design tool 
that works with the new co- 
lours and had Wolfgang Uhlig 
chomping at the bit wanting to 
buy QDT just to own the utility. 
| would not say | have pro- 
duced a Mona Lisa for the 
computer user but it was fun 
drawing the stuff 


And Talking in Colours 
(to paraphrase the Rolling 
Stones) 


Whilst | was at Eindhoven a 
month or so ago | had a 
chance to tackle Wolfgang 
Uhlig about, what | thought, 
was an omission in QCoCo. | 
had noticed that, since the arri- 
val of the new colour versions 
of some of our programs | had 
been having a small but annoy- 
ing problem with QD. | use QD 
a lot for many different tasks 
and one of these is to produce 
this column as well as other 
text for insertion into LINE- 
Design. Since my fingers can 
spell less well than my brain | 
always run the finished item 
through the speil chucker In 
the last few versions of QD 
this has thrown up a box with 
mis-typed words displayed in it. 
In the low colour version this is 
fine but the hi colour versions 
always produced a box with 
yellow text on a blue back- 
ground or something similar 
This was unreadable and | 


spent many hours with QCoCo 
trying to find the setting to 
change the background. 

| found the ink colour for it 
which was ‘Info Window - 2nd 
Ink’ but the background colour 
eluded me. Since Wolfgang 
was at Eindhoven | got him to 
look at it, thinking he had 
missed out a setting. He was 
equally puzzled because he 
had used the parameters given 
to him by Marcel and they 
were all accounted for. 

The explanation was a little 
bizarre. It seems that some- 
how, during the writing of QD, 
the background for this item 
was not linked to the usual 
‘Info Window — paper’ but to 
the separator from QSpread. If 
you go into QCoCo and 
change the separator colour 
then the background for the 
spellcheck window changes 
too. This took some investiga- 
ting and | am still impressed 
that he thought of it but there 
you are. Jochen says this is a 
bug and will be fixed but, in the 
meantime, if you want want to 
change that colour that is 
where it is. 


Pick Your Own 


Another useful, and much un- 
der applauded, utility included 
with QCoCo is the Colour 
picker. This produces a Rain- 
bow styled display of the avai- 
lable colours which you can 
roam across with the cursor. 
As you do this you can see 
the HEX number in a box be- 
side the main window dis- 
played as either Truecolour or 
System Colour. 

At the bottom of the display 
you can see the 16 ‘Favourite 
Colours’. These are the colours 
displayed when you _ first 
choose to change the colour 
of an object in QCoCo. You 
can use the spectrum box to 
change any of these colours 
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and thus alter your 16 ‘Favou- 
rite Colours’ You can also 
‘send’ the current Colour's HEX 
number to the stuffer buffer so 
you Can insert it into any pro- 
gram you may be writing or 
any configuration you may be 
doing. Another useful and ele- 
gant piece of programming 
from an under-appreciated pro- 
grammer This should be in 
everyone's toolbox - especial 
ly since it is free. 


EPSON and the Printer 
thing 

| felt a great sense of 
foreboding when | wrote the 
printer review that you will find 
on other pages of this maga- 
zine. There | was saying ‘This 
printer works fine with most 
QL programs and we all know 
what those words mean don't 
we? 

As | wrote the review you can 
hear the sound of EPSON's 
low end laser printer construc- 
tion line shutting down. Such is 
the awesome power that a 
review in QL Today seems to 
wield. Nevertheless, unheedful 
of those poor workers whose 
jobs | am closing, | had to 
proceed and write the review. 
After | had written the review 
and sent it off to the magazine 
| found a few other things 
which some of you may wish 
to know about so | have added 
them in here. One of the more 
interesting things is that you 
can buy a serial interface for 
this printer (Epson Part No. 
C12C823081 around £70 + 
VAT) and this should enable 
you to print direct for a QL 
without a serial to parallel 
interface or a Super Gold Card. 
OK, so | know that means that 
you will have a QL, worth all of 
£20 connected to a printer that 
has now cost you around £280 
and has approximately 8 times 
the memory of the computer 
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but it is an intriguing thought. 
Among the other available 
accessories are 

C12C802051 - Duplex Unit to 
allow printing on both sides of 
the paper, around £80 + VAT 
C12C823914 - Network adap- 
tor, puts the printer on an 
Ethernet, around £120 + VAT 
C1i2C823972 - 80211b Wire- 
less network adaptor allows 
wireless printing, around £180 
+ VAT 


None of these are cheap op- 
tions and the last two are not a 
lot of use to QL users although 
Q60 users could share the 
printer with other computers 
on an ethernet and QPC2 
users could do the same on a 
wireless link via the PC’s inter- 
face. 


Print (re-)# 

Rich Mellor brought the printer 
driver thing up on the user 
group as | was putting the fini- 
shing touches to this column. 
He mentioned two of the ideas 
that | had put forward in previ- 
ous columns as possible solu- 
tions to our printer dilemma. | 
had discussed my ideas at 
length with Marcel and Jochen 
while we were on the US trip 
this year and it would seem 
that the only really viable solu- 
tion is Marcel's idea of a ghost- 
script driver. There really is no 
other easy option. 

The idea of a box which could 
be programmed with the dri- 
vers for your printer does not 
make a lot of sense when you 
think that the printer drivers 
provided with most printers 
need a version of Windoze to 
run. Few printers these days 
come with DOS drivers and 
even if you managed to get a 
DOS driver running on a simu- 
lated version of DOS in the 
box someone would have to 
write a DOS program to ac- 
cept the input from the QL. In 


order to get that to work you 
would need to have an output 
from the QL that it would un- 
derstand. To get this work from 
a large selection of QL pro- 
grams you would need to use 
one of the EPSON drivers as 
used by Quill etc. These are 
based on, at best, 24 pin DOT 
matrix devices so you would 
wind up with a modern 1200 
dpi printer producing 24 pin 
output. And that is just the text! 
What you do about graphics is 
a whole different metal food 
receptacle of wiggly things. 


And Speaking in Ani- 


mal Terms 

To continue with the animalistic 
analogy Nasta let the furry 
mouse consumer out of its 
hessian container when he 
sent a post to the user group 
which was only intended for 
private consumption. Since this 
is already in the public domain | 
can now mention it here. As a 
result of the needs of the 
people he works for and also 
at the prompting of some 
members of the QL Commu- 
nity he is working on a small 
device which will run SMSQ/E. 


To quote him: 
‘General specs are as follows: 


* 66MHZz 682328 CPU (per- 
formance should be about 
50% faster than SGC) 

* VGA monitor output (640 x 

480 resolution or slightly 

over -— theoretical limit is 

1024x512 + there is a virtual 
screen feature) graphics in 

256 colours (65536 is pos- 

sible but only for lower 

resolutions due to memory 
bandwidth limitations) 

Integrated small LCD 

display (6-7 diagonal) 

option to make a palm size 
computer, stylus digitizer 


*e 
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hardware included __ for 
touch sensitive displays. 

32 or 64M of RAM built in 
(not expandable) 

2M {at least) of Flash built 
in 


x” 


*% 
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MMC or SD flash card for 
storage (Sony Memory 
Stick is also possible but 
as this iS less 
proliferant(sic), more expen- 
sive, and larger it will pro- 
bably not be used) 

2 serial ports (or one serial 
and one IRDA) with high 
baud rate support. 

Matrix keyboard (8x8, pro- 
bably compatible with QL 
keyrow assignments) 

USB device port (NOT host 
controller - the board 
would be a device to be 
connected to a host for 
data transfer) 

Mono sound in/out 

Real Time Clock 

Low power 

(possible extra features like 
a QL compatible expansion 
bus, CF or IDE port, parallel 
port, dimensions that make 
it fit a regular QL case, etc). 


* ” 


x 
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Regarding this piece of hard- 
ware, | am trying to sort of 
skid around on the edge of a 
blade - trying to make it both 
what my employer wants it to 
be, as well as a product for 
the QL community. He is 
willing to pay for the hardware 
side of the development, and 
this hardware could then be 
made available to the QL 
community essentially at cost, 
which is what the community 
needs. On the other hand my 
employer needs the expertise 
people of the community 
have regarding porting of the 
OS and some applications. 
The end product could then 
be marketed in several 
markets. 

Don't ask me about costs yet, 


56 


| have no idea as it's all under 
development. | know _ that 
boards are going to be made 
in neighbouring — Slovenia, 
which is now part of the EU’ 


Since all of the above ap- 
peared on the mailing list | am 
sure he will not mind me re- 
peating it here for those who 
are not currently on that list. 
This is a very interesting pro- 
ject and one which should be 
supported by as many people 
as possible. It raises a lot of 
points which have been put 
forward before by people such 
as Arnould Nazarian. 

lf we could move an SMSQ/E 
driven computing device back 
into a more commercial market 
we would be in a better posi- 
tion to attract some of the 
more professional program- 
mers back to do some work. 
For a small device a lot of our 
programs are more than ade- 
quate and, having a more via- 
ble user base, we could work 
on improving SMSQ/E. Nasta 
has mentioned that the pro- 
posed box would require some 
work which could be of some 
use to all of us. Talking about 
the proposed project he says: 


‘As we discussed, he wants to 
build a small machine that 
would drive a CRT or LCD 
monitor could be easily pro- 
grammed, and would run 
some games. The idea of 
running it under SMSQ/E was 
discussed and he seems very 
interested in this as it’s small 
and relatively easy to pro- 
gram. I've also roped in ano- 
ther 68k programmer that 
used to program Atari STs etc, 
and he is very impressed by 
the docs | gave him on 
SMSQ/E - he also downloa- 
ded the source. | plan to drag 
him by his heels if needed, to 
QL2004 later this year. he's 


the kind of guy that is cap- 
able of doing anything if only 
he finds it interesting ;-) 


This is, aS a | Said, a project we 
need to support any any way 
possible. It is also very much in 
the planning stage so dont 
start bombarding Nasta_ with 
requests for one. Mind you, if 
you think you can help | am 
sure he would like to hear from 
yOu. 


QL 2004 - again 

Since he mentions QL 2004 
that is a good enough cue to 
remind you all that we need to 
support it as best we can and 
it would be good to see as 
many of you there as possible. 
Given the proposed program 
of events and the people who 
have already committed them- 
selves to attending it would 
seem to be one of the better 
QL shows in recent years. | 
believe that a full prospectus 
of events is published on 
another page in the magazine. 
We have been trying to get 
nominations for the awarding 
of a Golden Clive award to the 
person or persons who have 
done the most for the QDOS/ 
SMSQ community in recent 
years. These nominations have 
been a bit slow in coming in so 
please VOTE NOW! you can 
send a postcard to either of 
the QL Today addresses in the 
UK or Germany or email 
Jochen, Dilwyn or myself. Don't 
forget, this is you opportunity 
to reward someone who has 
worked hard to keep your 
favourite system alive. 

SO, book your ferries, planes, 
dog sleds or whatever other 
mode of transport is to your 
liking and get yourself over 
there. | won't mention the 
Chinese. 
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EINDHOVEN 
16th October 


LIGHT CITY CHALLENGE! 


The QL2004 team invite you to celebrate the QL's 20th birthday at an 
international workshop to be held in Eindhoven, the "Light City" of 
the Netherlands. 


We shall be looking back on 20 years of the QL, but also looking 
forward. Our Light City Challenge is to take the QL into its 21st year 


and beyond. 


VENUE 


Pleincollege St. Joris, Roostenlaan 296, Eindhoven, 
Netherlands. 


Saturday 16th October from 10.00 to 17.00. 


The Pleincollege St. Joris is one of the oldest and most 
popular QL workshop venues with a large hall for the main 
meeting and smaller rooms for demonstrations and fectures. 
The hall is well provided with electric sockets, but please 
bring your extension leads etc. For demonstrations we can 
make use of projectors, and it is helpful if your system can be 
connected to these. 


There are no cafes or restaurants in the immediate vicinity of 
the show venue, but the show hosts, the Dutch user group 
Sin-QL-Air, will provide light refreshments at cost price 
throughout the day. 


ACTIVITIES 


Most of the main traders have indicated they will be present at 
the show, and there will be ample room for you to set up your 
own system. In addition we are planning several workshops 
and a QL Forum. 


A QL Intemet Connection Workshop will explore the latest 
progress in developing emailing from your QL, and a Colour 
Workshop will look at tools and techniques for using the new 
colours in your own programs. 


We also hope to have some Q60 related activities and news 
of expansion cards for native hardware. We would also like to 
see some progress made in improving QL _ printer 
compatibility. 


To end the formal proceedings, there will be a QL Forum with 
a panel of "experts". We are still inviting nominations for this 
panel, and would like some questions for the panel in 
advance. 


BY CAR 


Travel to Eindhoven on the Venlo - Antwerp Motorway (A67 - 
E34) and leave at Knooppunt Leenderheide following the 
signs Centrum. You are now in the Leenderweg. At the first 
roundabout turn left into Floralaan West. Stay on this road to 
the first traffic lights where you should turn left. You are now 
in the Roostenlaan. Look for the signs to Pleincollege St. 
Joris, which is on the right hand side of the road. There is 
ample parking space on the school campus. 


PUBLIC TRANSPORT 


There are frequent trains to Eindhoven from all comers of the 
Netherlands. 


For train times and prices go to www.ns.nl, click on the 
English link and use the snelplanner. 


To catch a bus to the show venue, tum right on leaving the 
station platform and go to the bus station at the rear of the 
railway station. You need bus line 7 in the direction of Waalre, 
which is an half hourly service. Ask for the stop 
Roostenlaan/Floralaan. The joumey is over 2 zones, (i.e. 3 
strips of your strippenkaart) and takes just over 10 minutes. 
When you leave the bus, turn left, walk over the Floralaan and 
keep walking straight on. Pleincollege St. Joris is about 5 to 
10 minutes from the bus stop on your righthand side. 


If you prefer to use the taxi, then you should turn left when 
you leave the station platform and go to the front of the 


station. (Please note there is no longer a treintaxi service in 
Eindhoven.) 


More information on the 


QL2004 website - see below. 


Geoff Wicks, 56 Peveril Crescent, West Hallam, Derbyshire DE7 6ND, U.K. 


Tel: +44 (0)175 - 930 3713 


email: gwicks@beeb.net 


Web: http://members.lycos.co.uk/geoffwicks/qI2004.htm 


The QL Show Agenda 


L Meeting - (D) Berchtesgaden 
Saturday, 2nd of October, 10:00 to 17:00 
Hotel Schwabenwirt, Konigsseer Str. 1 


Same venue as last year! 
Although J-M-S will be moving (see News and Ad), we'll make it to the show, of |. 
course! TF Services, Q Branch etc. will be there too, as usual. : 


Norwich Sinclair Show - (UK) Norwich 


Saturday, 6th of November 


Alec Bussey Centre off Rowington Road, Norwich NR1 3RR | 
More information, including map, is on the show website at} 
http:/www.speccyverse.me.uk/orsam/ > 


OL Meeting - (UK) Byfleet 


Sunday, 28th of November, 10:00 to 16:00 
Byfleet Village Hall 


Same venue as all the years before! 


The Hall is just inside M25, between jns 10 & 11, and just South of A245. 
From M25, nil; go East towards Weybridge, then turn right (South) onto A318 and follow it to Brooklands (now }. 
a business park), then through the old racetrack, turning right onto A245, Turn left at second roundabout, left | 
at little roundabout, and Hall is on right. b, 
From M25, jni0; take A3 towards London, left onto A245 towards Woking at next junction, (Painshill). After |~ 
A318 joins, turn left at second roundabout - see below. (Or you can take the earlier left fork into Byfleet, go | 
right at first small roundabout and left at the next, by the green} 

From A3, either direction; leave at Painshill junction with M25, jni1 

A245 Cobham/Woking head for Woking. psrsiniaes rd ieee 

By train; Byfleet & New Haw is on the Waterloo Woking Z 

line. Its 12 to 15 mins walk. Don t go through Brook- A318 

lands - carry on down the old road, across the A245, 
and on to the green, then turn right. ee eee 
Free Parking, and all the usual attractions. If that isn't woking 
enough, Brooklands Museum (aircraft and motor racing) 4245 
is just up the B374: or there’s a Bus Collection on the 
A245 to Cobham: or I'll explain how to get to the RHS > J Clery 
ie at Wisley (RHS Membership needed on Sun pyle Vilage : M25,jn10 | 
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see reverse sl 


Don’t miss OL 2004 - 


